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INTRODUCTION 


This  document  contains  the  supplementary  material  to  Ontario  Tax 

Study  7 s  Analysis  of  Income  and  Property  Taxes  in  Guelph,  It  contains  the 

manuals  for  three  computer  models: 

"Repcred8:  the  representative  taxfiler  analysis  for 
property  and  sales  tax  credits . 

8 Provcted”:  the  analysis  of  the  revenue  and  incidence 
effects  of  property  and  sales  tax  credits 
in  Ontario. 

* Guelpbcred 8 :  the  analsyis  of  the  revenue  and  incidence 
effects  of  tax  credits  in  Guelph. 


Additional  copies  are  available  from  the  Taxation  and  Fiscal  Policy 
Branch*  Ministry  of  Treasury*  Economics  and  Intergovernmental  Affairs*  Ontario. 


October  1972 


Brian  Hull 
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I.  INTRODUCTION 


This  program  has  been  designed  to  examine  the  implications 
of  various  possible  forms  of  tax  credit  scheme.  It  is  currently 
restricted  to  the  examination  of  sales  and  property  tax  credits, 
but  could,  with  a  little  modification,  be  used  to  examine  possible 
credits  for  medicare  payments. 

The  program  provides  for  the  analysis  of  a  number  of 
possible  formulations  of  a  property  tax  credit  as  well  as  facili¬ 
tating  an  examination  of  the  implications  of  various  possible  sets 
of  parameters. 

The  sales  tax  credit  formula  is  related  uniquely  to  one 
form  of  the  property  tax  credit  -  the  form  proposed  at  the  Finance 
Ministers  meeting  in  Ottawa,  November  1-2,  1971. 

The  program  provides  for  examination  of  a  property  tax 
exemption  formula,  as  well  as  a  formula,  similar  to  the  then 
existing  basic  shelter  grant  program. 

The  primary  purpose  of  this  program  is  to  examine  and 
compare  the  incidence  effects  of  alternative  formulae  and  alter¬ 
native  sets  of  parameters. 

Following  the  selection  of  a  particular  formula  and 
parameter  set,  it  may  also  be  used  as  a  reference  for  advising 
individuals  of  their  prospective  benefits  under  the  scheme. 


II.  DESCRIPTION  OF  PROGRAM. 


The  program  analyzes  the  incidence  effects  of  alternative 
tax  allowance  formulae  assuming  the  application  of  the  new  Income 
Tax  Act  -  Bill  C-259. 

The  rate  schedule  used  is  that  initially  proposed  in 
Bill  C-259  for  1972  assuming  a  combined  federal  and  30  per  cent 
provincial  tax. ^ 

The  program  provides  for  the  optional  inclusion  in  the 
analysis  of  the  new  allowances  under  Bill  C-259:  the  employment 
expense  allowance;  the  child  care  allowance;  the  new  personal 
exemption  levels  for  singles,  marrieds  and  old  people;  charitable 
deductions;  the  standard  $100  deduction;  and  contributions  to 
registered  retirement  pension  funds. 

The  program  generates  a  matrix  of  results  by  gross  income 
and  property  tax  class.  It  examines  up  to  40  income  classes  and 
30  property  tax  classes.  Tables  are  generated  for  the  following 
values:  total  income  and  property  tax  payable  before  tax  credit 

formula  is  applied;  difference  in  taxes  produced  by  the  credit 
formula  (including  refunds  where  applicable);  the  credit  as  a  per 
cent  of  gross  income;  property  tax  as  a  per  cent  of  gross  income; 
total  tax  as  a  per  cent  gross  income;  and  total  tax  less  credit 
as  a  per  cent  gross  income. 


1.  See:  Hon.  E.  J.  Benson,  Summary  of  1971  Tax  Reform  Legislation 
(Ottawa:  Department  of  Finance,  1971),  page  17. 


The  program  analyzes  several  broad  categories  of  credit 
formulae:  tax  credits  related  solely  to  income  (either  taxable 

income  or  gross  income);  credits  related  solely  to  actual  levels 
of  property  tax  (such  as  the  existing  basic  shelter  exemption 
grant);  credits  related  to  both  property  tax  and  income;  and  a 
property  tax  exemption  -  which  alters  the  tax  base  rather  than 
the  level  of  taxes  to  be  paid  or  refunded. 


III.  APPLICATION  OF  PROGRAM  TO  ANALYSIS. 


The  primary  purpose  of  this  program  is  to  examine  the 
incidence  effects  of  various  tax  credit  formula  for  representative 
taxfilers.  It  examines  the  incidence  for  various  possible  combi¬ 
nations  of  personal  exemptions,  deductions  and  allowances. 

The  program  facilitates  the  first  stage  in  designing  a 
credit  formula.  A  full  analysis  requires  knowledge  of  the  incidence 
of  property  taxes  by  income  classes  and  a  costing  of  the  revenue 
foregone  in  the  province  under  various  formula. 

The  computer  model  was  designed  using  the  time  sharing 
computer  facilities  of  Polycom  Limited,  Toronto  which  has  a  General 
Electric  400  series  computer. 
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Appendix  A 


TABLES  GENERATED 


SUMMARY. 

A  run  of  the  program  generates  an  analysis  of  the  effects 
of  the  particular  credit  formula  chosen  for  income  filers  with 
a  given  set  of  personal  exemptions  and  deductions.  Thus,  for  a 
run  which  assumes  an  individual  files  as  single  with  no  dependents, 
the  effects  of  the  credit  are  demonstrated  for  various  combinations 
of  gross  income  and  property  tax.  Each  set  of  personal  exemption 
and  dependency  characteristics  requires  a  separate  run. 

The  output  of  a  run  is  prefaced  with  a  listing  of  the  para¬ 
meter  values  of  the  particular  credit  form  being  tested  as  well 
as  a  summary  of  the  assumed  filer  exemption  characteristics. 


TABLES . 

A. 1  Sum  of  income  and  property  tax  payable  before  credit. 

A. 2  Difference  in  taxes  after  credit:  value  of  credit 

(may  be  refundable). 

A. 3  Difference  in  taxes  as  per  cent  of  gross  income. 

A. 4  Property  tax  as  per  cent  gross  income. 

A. 5  Net  property  tax  as  per  cent  gross  income  (property 

tax  less  total  credit). 

A. 6  Total  tax  as  per  cent  gross  income  (total  tax  is  sum 
of  income  and  property  taxes). 

A. 7  Total  tax  less  credit  as  per  cent  gross  income. 
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TAX  SYSTEMS  ANALYZED 


B.l  POSSIBLE  FORMS  OF  THE  TAX  CREDIT 

(i)  Income  Related  Credits 


A  basic  credit  reduced  by  some  fraction  of  either 
gross  or  taxable  income. 

CREDIT  -  BASIC  CREDIT  -  Y 

where  Y  may  be  either  gross  or  taxable 
income 

A  rule  may  be  adopted  that  the  basic  credit  is 
reduced  by  some  fraction  of  income  only  after  some 
minimum  level  of  income  has  been  reached. 


(ii)  Property  Tax  Related  Credits 

a)  Similar  to  current  basic  shelter  exemption: 

A  basic  credit  increased  by  some  fraction  of 
the  average  net  assessment  of  the  municipality. 

CREDIT  *  BASIC  CREDIT  +  a2  A 

where  A  is  average  net  assessment  of 
the  municipality 

A  rule  may  be  adopted  that  if  the  calculated 
credit  exceeds  the  basic  credits,  then  the  credit 
is  reduced  to  equal  either  the  basic  credit  or 
one-half  the  property  tax  whichever  is  the  greater. 

b)  Related  to  personal  property  tax  paid: 

A  basic  credit  increased  by  some  fraction  of 
property  tax  paid. 

CREDIT  =  BASIC  CREDIT  +  a3  * 

PROPERTY 

A  rule  may  be  adopted  that  the  credit  does  not 
exceed  some  fixed  upper  level.  (It  should  be 
possible  to  ascertain  at  what  gross  income  the 
limit  will  usually  become  operative). 


(iii)  Credits  Related  to  Both  Property  Tax  and  Income 


a)  A  basic  credit  increased  by  some  fraction  of 
property  tax  and  reduced  by  some  fraction  of 
either  gross  or  taxable  income. 

CREDIT  =  BASIC  CREDIT  +  a4 
PROPERTY  TAX  -  a5  Y 

where  Y  Is  either  gross  or  net  income 

A  rule  may  be  adopted  that  there  be  an  upper 
ceiling  on  the  tax.  Or,  if  gross  income  is 
adopted,  a^  may  be  set  such  that  for  average 
taxes  for  any  income  level,  the  credit  works 
out  at  no  more  than  the  basic  credit  for  that 
group.  Thus,  those  who  pay  more  than  average 
property  taxes  in  their  income  group  will  obtain 
a  proportionately  greater  tax  credit.  The  floor 
on  the  credit  would  be  the  basic  credit  level, 
or  some  fraction  of  it. 


b)  No  basic  credit  and  credit  calculated  as  some 
fraction  of  property  tax  reduced  by  a  factor 
which  is  Itself  variable.  The  factor  is  the 
fraction  of  property  tax  already  calculated 
divided  by  some  constant. 

CREDIT  =  a.  PROPERTY  TAX  (1  -  - 2 — -) 

b  Constant 

*  a6  PROPERTY  TAX  -  a6  PR0PERTY  TAX 

CONSTANT 

where  Y  is  either  gross  or  taxable 

Income 


c)  No  basic  credit  and  credit  calculated  as  some 

fraction  of  property  tax  reduced  non- linearly  by 
income  (parabolic  function). 

CREDIT  -  a6  PROPERTY  TAX  (X  - 

-  a,  PROPERTY  TAX  -  2  *  a6  PROPERTY  TAX 
0  CONSTANT 


where  Y  is  either  gross  or  taxable  income. 


B. 2  PROPERTY  TAX  EXEMPTION 


Provision  to  reduce  property  tax  burdens  may,  in 
principle,  be  done  with  a  special  exemption.  This,  however, 
reduces  the  benefits  of  the  scheme  for  those  whose  exemptions 
already  approach  to  exceed  their  gross  income. 


B. 3  SALES  TAX  CREDIT 

The  model  will  analyze  one  form  of  sales  tax  credit 
in  conjunction  with  a  credit  related  to  both  property  tax  and 
taxable  income. 

B.4  SELECTION  CODE  FOR  ALLOWANCE  FORMULAE 

Credit  Systems: 

NN  =  1 

CREDIT  =  BASIC  CREDIT  -  ax  (Y  -  PTP) 
where  Y  =  TAXABLE  INCOME 

PTP  =  LEVEL  OF  EXEMPT  TAXABLE  INCOME  (PTP^O) 
al  =  INCP 

NN  =  2 

CREDIT  =  BASIC  CREDIT  +  a2A 

where  A  »  average  net  property  tax  of  municipality 
Set  PTP  =  A 

a,  2  =  CRED 


(SEE  NOTE) 


NN  =  3 


CREDIT  =  BASIC  CREDIT  +  a4  PROPERTY  TAX  -  a5Y 
where  Y  =  TAXABLE  INCOME 


a4  =  CRED 
a5  =  INCP 

NN  =  4 

CREDIT  ■  BASIC  CREDIT  +  a3  PROPERTY  TAX 
where  a^  =  CRED 
(SEE  NOTE) 
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NN  =  5 

CREDIT  «  BASIC  CREDIT  -  a]_  (Y  -  FTP) 
where  Y  =  GROSS  INCOME  (  FTP  >0) 
a1  =  INCP 

(COMPARE  WITH  NN  =  1) 


Exemption  System: 

NN  =  6 

EXEMPTION  =  BASIC  EXEMPTION  -  INCP*Y 
where  BASIC  EXEMPTION  =  BCRED 
GROSS  INCOME  =  Y 


Note:  When  NN  53  2,  if  the  calculated  credit  exceeds  one  half 
the  property  tax,  the  credit  is  calculated  as  one  half 
of  property  tax. 

When  NN  =  4,  if  the  calculated  credit  exceeds  some 
upper  limit,  FTP,  it  is  set  equal  to  the  upper  limit. 


B. 5  FORTRAN  VERSION  OF  ALLOWANCE  FORMULAE 

NN  =  1 

CD(I)  »  BCRED  -  INCP* (I)  -  FTP) 
if  CD(I) .LE.FP* BCRED,  CB(1)  =  FP*BCREB 


CB(J)  =  BCRED  +  CRED*PTP 

if  CD ( J ) . GE . . 5*PTAX ( J ) ,  CD(J)  =  .5*PTAX(J) 
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NN  =  3 

TTT (I , J )  =  BCRED  +  CRED  *PTAX(J)  -  INCP*TTINC(X , J) 

NN  =  4 

CD(J)  =  BCRED  +  CREB*PTAX(J) 
if  CD(J) .GE. FTP,  CD(J)  *  FTP 


NN  =  5 

CD (I)  =  BCRED  -  INCP* (XINC (I)  -  FTP) 
if  CD (I) .LE.FP* BCRED,  CD(I)  =  FP*BCRED 


CD (I)  =  BCRED  -  INCP*XINC(I) 
if  CD(I) .GT.PTP,  CD (I)  »  FTP 
TING  (I)  =  TINC  (I)  -  CD(I) 


Note:  NN  =  6  is  the  exemption  scheme  -  the  exemption  is 

subtracted  from  taxable  income  and  the  rate  schedule 
applied  to  the  resulting  net  income. 


Appendix  C 


PROGRAM  PARAMETERS 


C.l  SUMMARY. 

The  program  reads  a  datafile  in  the  course  of  each 
run.  This  specifics  the  credit  formula,  parameters,  the  filer's 
exemption  characteristics  and  the  set  of  income  and  property 
tax  classes  to  be  analyzed. 


C. 2  FORMAT  OF  THE  DATAFILE. 


•’Read" 


Statement 

No. 

Variable 

Symbol 

Description 

1 

NN 

Credit  or  exemption  formula  -  see 
Appendix  B  for  specification. 

Nl 

Child  care  allowance:  0  if  no  child 
care;  otherwise  1. 

N2 

Sales  tax  credit:  0  if  no  sales 
credit;  otherwise  1. 

N3 

Registered  pension  plan  deduction: 

0  if  not  analyzed;  otherwise  1. 

2 

M 

No.  of  Income  classes. 

N 

No.  of  LIA,  RTC  classes. 

K 

0  if  single;  1  if  married. 

KK 

No.  of  children  under  16. 

L 

No.  of  children  under  14. 

LL 

No.  of  children  16  or  over. 

LLL 

0  if  filer  under  65  years  old; 

otherwise  1. 
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MM 

Employment  expenses:  0  or 
number  claimed. 

3  EXE 

Maximum  employment  expenses. 

EXA 

Old  age  $650  deduction. 

EXP  I 

Single  exemption. 

EXP  2 

Married  exemption. 

4  DEM 

Standard  $100  deduction 

DECH 

20  per  cent  charitable  deduction. 

EX  CHI 

Exemption  for  children  under  16. 

EXCH2 

Exemption  for  children  over  16. 

5  DECAR 

Maximum  day-care  allowance  -  $2,000 

DECARL 

Assumed  level  of  day  care  per  child 

DECAM 

Fraction  of  income  which  may  be 
subtracted  for  day  care. 

6  CRED 

Credit  as  %  property  tax. 

BCRED 

Basic  property  tax  credit 

INCP 

Income  coefficient. 

PTP 

Maximum  credit  permitted. 

FP 

Minimum  credit  allowed. 

7  XINC 

Income  classes. 

8  ARSH 

Average  taxes . 

9  RSH 

Marginal  tax  rate. 

10  PTAX 

Property  tax  levels. 

10 


11 

RTC 

Refundable 

tax  credit  classes. 

12 

LIA 

Low  income 

allowance  classes. 
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PROGRAMME  LISTING 


D.l  PROGRAMME  OUTLINE. 


Main 

Programme 

Calls 

Subroutines : 

KSCH 

Rate  schedule 

TABl 

TAB2 

TAB3 

TAM 

TABS 

Tables 

D.  2 


TABLE  DESCRIPTION. 
TABl 
TAB2 

TAB3 

TAM 

TABS 


Property  tax  exemption  tables 

Generates  7  tables  by  income 
and  property  tax  class 
(see  Appendix  A) 

Assumption  summary  for  run 

Header 

Summary  of  property  classes  analyzed. 


RP  CRD 


70SSAV 
80$NDM 
90$ TTY , 1 20 
1 80$ RPC 

110  DIMENSION  R TC ( 40 ) ,  L I  A  (  48  ) 

1 20  COMMON  XI NC( 40 ) , TINC ( 40) , CD( 40 ) ,CCD,RSH( 15 ) ,  A  R  SI!  ( 15) 

130  COMMON  FN 

140  COMMON  PTAX ( 30 ) 

150  COMMON  MMM,CRED 

160  COMMON  N,K,KK,L,LL,LLL,MM,BCRED, INCP,PTP,FP 
170  COMMON  M , NM , N 1 ,N2 
180  COMMON  STI NC (40,30) 

190  COMMON  TIT (40, 30) 

200  COMMON  STX (40,38) 

2  1  0  CO  MMONTAX  ( 40 , 30 )  ,  TT I  NC  (  40 , 30  )  ,  CC  ( 5  ) 

211  COMMON  N3 

220  C 

238C 


240C 

250C  REPRESENTATIVE  TAX  FILER  ANALYSIS 
260C  FOR  PROPERTY  AND  SALES  TAX  CREDITS 
270C 
28  0C 

29 0C  BRIAN  HULL,  SEPT. 20,  1971 
380C 

310  REAL  LI  A , I NCP 
328  DATA  TT INC/4  200*0/ 

330  DATA  XINC,TINC,RTC/ 120*0/ 

340  DATA  STI NC ,TAX/2 400*0/ 

350  DATA  ARSH, RSH/30*0/ 

360  DATA  PTAX/30*0/ 

370  D AT A CD/40 *0/ 


330  DATA  LI  A/40 *8/ 
335  DATA  STX /I  200*0/ 
398  DATA  CC/5*0/ 

488  DATA  TTY/ 1200*0/ 


410  108  FORMAT (A6) 

4 20  PR  I  NT , " DA TAF I L E " , " * 
430  READ  1 00 , FN 


440  CALL  OPENF  (1,FN) 


450  CALL TAB 4 
460C 


470 

480( 


READ(  !  1  ,  ER3=I 50 ) 


,  N 1 


N 1 =0 , I F  NO  CHILD  CARE; 


M3 

IF  CHILD  CARE 


490C  N2  =  0 , I F  NO  SALES  TAX  CRED;  1,  IF  PER  C. 


S.TAX .CRED. 


588 C  N.B.  SALES  TAX  CREDIT  IS  ASSUMED  TO  BE  18.00  DOLLARS 
51  0C 


51 5C  N3  =  8  IF  NO  REGISTERED  PENSION  FUND  OTHERWISE  1 

528C  NN=  1  .CREDIT  FUNCTION  OF  I  NCOME  ?  3,  FUNCTION  TAXABLE' 

530  READ( 1 ; , ERR= 1 58 )  LN, M, N, K , KK ,L ,LL, LLL ,MM 


;  4, 


2 


RPCRD  CONTINUED 


540C  M=  NO.  OF  INCOME  CLASSES 

5S0C  N=  NO.  OF  RTC ,  LI  A  CLASSES 

560C  K=  0  IF  SINGLE,!  IF  MARRIED 

57 0 C  KK=  NO.  OF  CHILDERN  UNDER  16 

580C  L=  NO.  OF  CHILDREN  UNDER  14 

590C  LL=  NO.  OF  CHILDREN  16  OR  OVER 

600C  LLL=  0  IF  UNDER  65.  OTHERWISE  1 

610C  MM=  EMPLOYMENT  EXPENSE  0  FOR  NONE;  OR  NO. 

620  READ ( 1 ; , ERR= 1 50)LN , EXE , EX A , EXP  1 , EXP2 


630C 
640C 
65  0C 

660  READ 
670C 
680C 
690  C 
700  C 
7.1  0C 


EXE=  EMPLOYMENT  EXPENSES 
EXA=  OLD  AGE  $650  DEDUCTION 
EXP  =  1  IF  SINGLE  DEDUCTION ; 2  IF  MARRIED 
(  1  ?  ,ERR=1  50)  LN  , D EM  , DEC’H ,  EX CH  1  ,EXCH2 
DEM=  STANDARD  $.100  DEDUCTION 

DECH=  20  PER  CENT  CHARITABLE  DEDUCTION 
EXCH 1 =  CHILDREN  UNDER  16 
EXCH2=  CHILDREN  OVER  16 


720  READ ( 1 ; , ERR= 1 50 )  LN , DECAR , DECARL , DECAM 

7 30 C  UECAR=  DAYCARE  OF  CHILDREN  $2000 

7 40C  DECARL=  ASSUMED  LEVEL  PER  CHILD 

750C  DECAM=  FRACTION  OF  INCOME 

760  READU  ;,ERR=150)  LN ,  CRED ,  BCRED ,  I  NCP ,  PTP  ,FP 

770C  CRED=  CRED  %  PROPERTY  TAX 

780C  BCR  ED “  BASIC  PROPERTY  TAX 

790C  I NCP=  INCOME  CO-EFFICIENT 

800C  P TP-  MAX.  CREDIT  PERMITTED" 

8.1  0C  FP=  FUDGE  FACTOR 

820  READC 1  , )  ( X I N C ( I ) ,1  =  1  , M ) 

830  READ ( 1 , )  ( ARSH ( I ) , I = 1  t 1 .3 ) 

840  READC 1 , )  (RSHCI ) ,  1=1 ,  13) 

850  READC 1,)  (PTAXC I ) , 1  =  1  ,30) 

860  READC 1 , )  ( RTC ( I ) , 1=1 ,N) 

870  READC 1 , )  (LIAC I) ,1=1 ,N) 

880  709  FORMAT ( X , 1 2 , X , F3 . 2 ) 

890  710  FORMAT  (F9.2) 

900  PRINT, "CRED  " , 

910  PRINT7 10, CRED 
920  PR  I  NTT" BCR ED"," * 

930  PRINT  7 10, BCRED 
940  PR  I  NT,  "PTP 
950  PR  I NT7 1 0 , PTP 
960  PRINT, "I NCP  » 

97  0  PRINT/ I  0,1  NCP 
980  PRINT, 

990  GO  TO  125 

1000  150  WRITEC2 ,) ."ERROR  IN  DATAF ILE" , LN 

1 0 1 0  GO  TO  1 1 1 

1.4  20  125  CONTINUE 

1030  DC)  256  J  =  1 ,30 
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HP  CRD 


ONTINUED 


1 d 40  236  P  TAX ( J ) =P TAX ( J ) *  1  0 . 

1050  I F ( NN . N E . 2 ) GO  T09 1 9 
1 060  D0913  J  =  1 ,25 
1  070  CD(  J  )=BCRED+.CHED*PTP 

1 080  I F( CD( J ) ,GE . . 5 *PTAX ( J ) ) CD ( J ) = . 5 *PTAX ( J ) 
1090  PRINT, "CD  ,PTAX",~* 

1 1 00  9 1 6  FORMAT ( 2X , 1 2 , F8 . 3 , X , F8 . 1  ) 

1110  PRINT  9 1 6 , J ,CD( J ) , PTAX(J) 

1120  918  CONTINUE 
1130  919  CONTINUE 
1  1 40  I F ( NN . ME . 4 )  GO  T0769 
1150  PRINT, 

1160  PRINT, 

1170  DO330 J= 1,25 
1 1 80  CDC J)=CRED*PTAX( J) 

1 190  CDC  J ) =BCRED+CD( J ) 

1 2 m  I F  C  CDC J) .GE. PTP ) CD ( J ) =PTP 
12  10  IFC J.EQ. 1  ) CDC  J ) =0 
1220  PR  I  NT, "CD 
1230  PRINT709 , J,CD( J) 

1  240  PR  I  NT,  "P  TAX",''* 

1250  PR  I NT 7 09 , J , PTAX  C  J ) 

1260  380  CONTINUE 
1270  769  CONTINUE 
1  2  BSC 
1  290C 
1  3  CSC 

1310  DO 2 55  1  =  1  ,M 
1 320  XINCC I ) =X I NCC I )*l 00. 

1 322  TINCC I ) =X INCC I ) 

1323  255  CONTINUE 
1  330C 

1331  IFCN3.ME.1)  GO  TO  257 

1332  DO  258  I=1,M 

1 333  RTCC  I )=X I NCC I )* .06 

1 334  IFCRTCC I ) .GE.250S. )  RTCC I) =2500. 

1  335  T  I MC  (  I  )  =X  I NC  (  I )  -R  TC  ( I  ) 

1336  258  CONTINUE 

1337  257  CONTINUE 
1  3  40  C 

1  350C 

1360  DO  500  1  =  1  ,M 
1  370C 
1  380  C 

1390  IFCK.LE.0)  GOTO  200 

1400  X  I E=EXP 2 

1410  GOTO210 

1420  200  CONTINUE 

1430  XI E=EXP I 

1440  210  CONTINUE 
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1450  EXE=  XINC( I)*.03 

1460  IFCEXE.GE. 150.0)  EXE=150.0 

1470  TINC( I ) =T INC( I ) -X I E 

1480C  CHILD  CARE  DEDUCTIONS 

1490  I F ( N 1  . EQ. 0)  GOTO 2 1  1 

1500  XP=DECARL*L 

1510  IF(XP.GE.DECAM*XINC(I ))  XP=DECAM*XINC( I ) 

1520  IF(XP.GE. DECAR)  XP=DECAR 

1530  TINC( I )=TINC( I)-XP 

1540  211  CONTINUE 

1550  TINC( I)=TINC( I)-KK*EXCH1 

1 560  TINC( I ) =TI NC( I )-LL*EXCH2 

1570  T INC( I ) =TINC( I ) -LLL*EXA 

1580  TINC( I )=TINC( I ) -EXE*MM 

1590  YY=DECH*X INC(  I ) 

1600  I F ( YY.GE. 100)  GOTO  220 

1610  YY=0 

1620  GOTO230 

1630  220  CONTINUE 

1640  DEM=0 

1650  230  CONTINUE 

1660  IF( YY.GE. 300. 0)YY=300.0 

1670  TINC( I ) =TINC( I ) -DEM-YY 

1 680  I F ( TI NC ( I ) . LE .0 . 0 )T I NC ( I ) =0 . 0 

1690C 

I  700C 

1  7  !0C 

17  20  I F ( NN.NE.5)G0T041  0 

1730  rmi , i )=tinc( i ) 

1740  TINC( I)=XINC( I ) 

1750  G0T0427 

1760  410  I F ( NN . NE. 1 ) GO TO 425 

1770  427  CONTINUE 

1780  I F ( T I NC ( I ) . LE . P TP ) G0T0424 

1790  CD( I )=BCRED-INCP*(TINC< I )-PTP ) 

1800  I F ( CD ( I ) . LE .FP*BCRED) CD ( I )=FP*BCRED 

1810  G0T0426 

1820  424  CONTINUE 

1830  CD( I ) =BCRED 

1840  426  CONTINUE 

1  850  I  F  (  NN .  EO .  5 )  TI  NC  ( I )  =TTT(  1,1) 

1860  425  CONTINUE 
1  870C 

1380  I F (NN . NE . 6 ) GO 10250 
1890  CD ( I ) =3CRED-INCP*XINC( I ) 

19  00  I F  (  CD  (  I  )  .  GT.  P  IP  )CD(  I)=PIP 

1910  I F ( CD  C I ) .LE.0.0)  CD ( I ) =0 

1920  GO  TO  390 

I930C 

1940C 
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1950  253  CONTINUE 
1960C 

19  70C 

1  980C 
1990C 
2000  C 

20  1  0C 
2O20C 
2030C 
2040C 
2050C 

2060  GOTO  395 
2070  390  CONTINUE 

2080 

2090  TTINC( I , 1 )=TINC( I ) 

2100  TTINC(IJ)  =TTINC (1,1)  -CD(I) 

2110  MMM= 1 

2120  CO  TO  396 

2130  395  CONTINUE 

2140  MMM=30 

2150  396  CONTINUE 

2160  530  CONTINUE 

21  70C 

2180  DO  252  1  =  1  ,M 
2190  DO  252  J=1,MMM 
2203  TTT( I , J)=TTINC( I , J) 

2210  TTINC(I , J)=TINC( I ) 

2220  252  CONTINUE 

2230C 

2240C 

2250C 

2260  CALLRSCH 

2270C 

2280C 

2290C 

2300C 

2  3 i 0  I F ( NN . N  E . 3 )  GOTO  1748 
2320  XYZ=0 

2330  I F  ( N  2 .  EQ  .  0  )  GOTO2109 
2340  XYZ=1  0.  *!<K 
2350  XYZ=XYZ+ 1 0 . *LL 
2360  I F ( K . EQ . 3 )  KS=1 
2370  I F ( K . ME . 0 )  K5=2 
2380  X YZ=X YZ  +KS*10.0 
2390  2109  CONTINUE 
2400  DO  1 745  1  =  1  ,M 
2410  DO  1 746  J=1  , 30 
2420  TIT ( I , J ) =0 

2430  STX ( I , J ) =X YZ- .0 1 *TT I N C ( I , J ) 
2440  IF  (  SPX  (  I  ,  J  ) .  LE .  0  )  STX  (  I ,  J  )  =  0 
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24  50  ITT ( I , J ) =3CRED+CRED *P  TAX ( J) - 1 NCP*TT I NC ( I ,  J ) 
2460  IF(TTT(I,J).LE.0)  TTT(I,J)=0 
2470  IF(TTT(I ,J).GT.PTP)  TTT(ItJ)=PTP 
2480  TTT( I , 1 )=0 

2490  2147  TTT ( I , J) -TTT (  I  ,  J  )  +STX  (  I  ,  J ) 

2500  STI  NC (  I  ,  J  )  =  TTT(  I  ,J) 

2510  I F ( J.EQ. 1  )  TTT(  1 1 ! )=0 

2520  1746  CONTINUE 

2530  1745  CONTINUE 

2540  1748  CONTINUE 

2550  I F( NN . EQ . 5) GOTO  1 776 

2560  IF( NN.EQ. 1 ) GOTO  1 776 

2570  GOTO1810 

2580  1776  CONTINUE 

2590C 

2600  DO  122  1=1 ,  M 
2610  DO  122  J=1  t  MMM 
2620  STI  NC ( I , J ) =CD( I ) 

2630  122  CONTINUE 
2640  1810  CONTINUE 
2650  I  F  (  NN  .  EQ .  4 ) GO  TO  1931 
2660  I F ( NN.EQ. 2) GO  T0 1931 
2670  GOTO  19  39 
2680  1931  CONTINUE 
2690  DO  1938  1=1 ,M 
2700  DO  1937  J= 1 , MMM 
2710  STINCCI , J )=CD ( J ) 

2720  1937  CONTINUE 

2730  1938  CONTINUE 

2740  1939  CONTINUE 

2750C 

2760C 

2770C 

2780C 

2790C 

2800C 

2810C 

2820C 

2830C 

2840C 

2850  I F ( M MM . G  T. 1  . 0 )  GO  TO  30 1 0 

2860  CALLTAB3 

2870  C ALLTAB  1 

2880  GO  TO  3020 

2390  3010  CONTINUE 

2900  C ALLTAB 3 

2910  CALLTAB2 

2920  3020  CONTINUE 

2930  CALLTA35 

2940  111  CONTINUE 


7 


RPCRD  CONTINUED 


2950  PRINT , 

2960  PRINT, 

2970  2  FORMAT ( A6 ) 

2980  PRINT, "TYPE  NAME  OUTPUT", 

2990  RE AD 2 ,FNAM 
3000  CALL  CLOSEF ( 2 ,FNAM) 

3010  STOP 
3020  END 
3030C 
3J40C 
3050C 
3060C 
3070C 
3080C 
3090C 

3 )  me 

3110  SUB ROUTT  NET A3  I 
3.120  WR  ITE  ( 2 ,  )  , 

3130  WRITE ( 2 , )  , 

3140  WRITE! 2, ) ," 

3150  WRITE (2,)," 

WRITE! 2,  )  ,  " 

WRITE! 2,),"  - 

5000  FORMAT  !2X,F3. 

DO  5010  1=1, M 
J  =  1 

TAX! I , J ) =TAX ( I , J ) / X  I N  C ( I ) *100.0 
STINC! I , J ) =STT  NC ( I , J) /XINC! I )*1 00.0 
™  WR ITE ( 2 ,5000 )  , XINC! I )  ,TINC( I ) ,CD( I ) , STINC! I ,J ) , T A X ( I , J ) 
5010  CONTINUE 

TAXABLE  INCOME  IS  BEFORE  CREDIT" 

IS  DEDUCTED.  TAX  CALCULATED  AFTER" 
CREDIT  IS  DEDUCTED." 


31  60 

3 1  70 
3180 
3190 

32  00 
3210 
3220 
3230 
3240 
3250 
3260 
3270 


GROSS 

INCOME 

CLASS 


<y 

/  O 


TAXABLE 

INCOME 


TAX 

CREDIT 


TAX 
INCOME: 
OLD 


TAX  %" 

INCOME*" 

NEW" 

_ ii 


, 4 ( 2X  ,F8 . 1 )  ) 


N.B 


3230 


i 


WRITE! 2,  ) 

W  R I TE  (  2  ,  )  ,  11 
WRITE! 2, ) ,  " 

RETURN 
3290  END 
3300  C 

33  1  0C 
3320  C 
3  3  30  C 
3340C 
3350C 
3360C 

3370  SUB ROUT IN STAB 2 

3380  6060  FORMAT ( 1  OX , 1 0 ( 3X , I  2 ) ) 

3390  6070  FORM  AT! 2X ,F3. 1  , 1 0(2X  ,F8. 1 ) ) 
3400  6080FORMAT! ///// ) 

34  1  0  6090FORMAT!  1  1  !  3X  ,7H - )  ) 

3420C 

34  30  C 
3  4  40  C 
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3450C 

3460C 

3470  DO6500  I B  —  1  ,7 
3480  IFCIB.LE. 1)  GO  TO  6001 

3490  IFCIB.LE. 2)  GO  TO  6002 

3500  IFCIB.LE. 3)  GO  TO  6003 

3510  IFCIB.LE. 4)  GO  TO  6004 

3520  IFCIB.LE. 5)  GO  TO6005 
3530  I F ( I B . LE . 6 ) GO TO6006 
3540  IFCIB.LE. 7)  GOTO6007 
3550  6001  CONTINUE 
3560  WRITE (2 . ) . 

3570  WRITE (2, 6080) 

3580  ENDFILE2 

3590  WRITE  (  2  s  )  . J1  TAX  PAYABLE” 

3600  WRI TEC  2 , ) ,"===  =======" 

36  10  WRI TEC 2,) 

3620  WRITEC2, ), "INCOME  PLUS  PROPERTY  TAX  PAYABLE" 
3630  WRITEC2,),"  (BEFORE  CREDIT)" 

3640  GO  TO  6050 
3650  6002  CONTINUE 
3660  WRITEC2,), 

3670  WRITE (2, 6030) 

3680  ENDFILE2 

3690  WRITEC2, ) , "  DIFFERENCE  IN  TAXES" 

3700  WRI  IE  (2,),"  ====== ===== =====  =======  •• 

3710  GO  TO  6050 
3720  6003  CONTINUE 
3730  WRITE (2, ) , 

3740  WRI TEC 2 ,6080) 

3750  ENDFILE2 

3760  WRITE (  2  ,  )  , "DIFFERENCE  IN  TAX  AS  %  GROSS  INCOME" 
3770  WRI  TEC 2  ,  )  ,  •”===================================-» 

3780  GO  TO  6050 
3790  6004  CONTINUE 
3800  WRI TEC 2, 60 80) 

3810  ENDFILE2 

3820  WRITEC  2 , ) .  "PROPERTY  TAX  AS  A  %  GROSS  INCOME" 
3830  WRITEC 2, ) ,"==================================== 

3840  GO  TO  6050 
3850  6005  CONTINUE 
3860  WRI TEC  2 .6080) 

3370  ENDFILE2 

3880  WRITEC2, ) ."NET  PROPERTY  TAX  AS  %  GROSS  INCOME" 
3890  WRITEC2.)  ,•»==========  ===========^====  =========■•• 

3900  GOTO6050 
3910  6006  CONTINUE 
3920  WRI TEC  2, 6080) 

3930  ENDFILE2 

3940  WRITEC2 ,)  ."TOTAL  TAX  AS  %  GROSS  INCOME" 
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3950  W  R I  TE  ( 2  , ) , » ===========================h 

3960  GOTO6050 
3970  6007  CONTINUE 
3980  WRITE (2, 6080) 

3090  ENDFILE2 

4000  //RI  TE(2  ,  )  TOTAL  TAX  LESS  CREDIT  AS  %  GROSS  INCOME" 
4010  'NR  ITE  (  2  ,  )  ,»============================  =  ========-.=  » 

4020  6050  CONTINUE 
4030  IX =0 
4340  IP=0 
4050  WRITE (2, ) , 

4060  N  R I  TE  ( 2  , ) , 

4470C 

4430  DO  6400  IJ=1  ,3 

4090  CC(IJ)=0 

4100  IX=IX+1 

4110  I Y  =  1  +  I P 

4120  IP=10*IX 

4130  I F( IP .GT.  30  )  I P=30 

4140  I  K=I  Y 

4  150  WRITE (2, )  , 

4160  WRITE (2,),"  GROSS" 

4170  WRITE (2,),"  INCOME" 

4180  NR ITE ( 2 , ) , "  CLASS  PROPERTY  TAX  CLASS" 

4190  WRITE (2 ,6060) , ( JP,JP=IK, IP) 

4  191  .X-0 

4195  NR ITE ( 2 , 6070)  ,X,(PTAX(JP)  , JP-I K , IP) 

420O  m  ITE  (2  ,60.90) 

4210  I F ( 1 8 . LE .  I )  GO  TO  60 1  1 
4220  I F ( IB . LE . 2 )  GO  TO  6012 
4230  IF( IB.LE. 3)  GO  TO  6013 
4  240  IF(  I8.LE.4)  GO  TO  0014 
4250  I F( IB . LE. 5 )  GOTO6015 
4260  I F ( I  3 . LE . 6 ) GOTO60 1 6 
4  270  I F ( 1 8 . LE . 7 ) GO TO60 1 7 
4280  6011  CONTINUE 
4290  DO  6666  1=1, M 
4300  006667  JP=IK, IP 

4320  6667  TTINCC I , JP ) =TTI NC( I , JP ) +PTAX  (  JP ) 

4330  6666  WR ITE( 2 , 6070 ) ,XINC(I ) ,(TTINC(I ,JP) ,JP=IK,IP) 
4340  GO  TO  6400 
4350  6012  CONTINUE 
4360  DO  6300  1=1, M 

48  70  >'i'R  ITE  (2, 6*070)  ,  X I NC  (  I )  ,  (  ST  I NC  ( I ,  JP  )  ,  JP=iK,  IP) 

4330  6300  CONTINUE 
4390  GO  TO  6306 
4400  6013  CONTINUE 
4410  DO  6302  1  =  1,  M 
4420  DO  7001  JP=IK  ,  IP 

4430  7001  TTT ( I , JP ) =ST I NC ( I , J P ) / X  I NC ( I ) *  1 00 . 
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4440  WRITE (2, 6070) ,XINC( I) , (TTT( I , JP ) , JP=I K , IP ) 

4450  6302  CONTINUE 
4460  GO  306400 
4470  6014  CONTINUE 
4480  DO  6304  1  =  1, M 
4490  DO  7002  JP=IK,IP 

4500  7002  TTI NC( I , JP ) =PTAX ( JP) /XI NC( I ) *1 00 . 

4510  WRITE (2, 6070) , X INC ( I )  , ( TTINC ( I , JP ) , JP  =  I K , IP ) 

4520  6304  CONTINUE 
4530  GO  TO6400 
4540  6015  CONTINUE 
4550  DO  6310  I =1 , M 
4560  DO  7003  JP=IK,IP 

4570  7003  TTI NC ( I , JP )  =  ( P  TAX ( JP ) -ST  I  NC ( I , JP ) ) /X  I NC ( I ) *1 00 . 
4580  WRITE (2, 6070)  ,XINC( I ) , ( TTINC ( I ,  JP) , JP=IK,  IP) 

4590  6310  CONTINUE 
4600  GOTO6400 
4610  60 1 6C0NTI N  UE 
4620  DO  7555  1  =  1  ,M 
4630  DO  7556  JP=IK,IP 

4640  7556  TTINC ( I , JP )=TAX ( I , JP ) /X I NC ( I ) *  1 00 . 0 
4650  WRITEC2 ,6070) ,XINC( I ) , (TTINC( I , JP) , JP=IK, IP ) 

4660  7555  CONTINUE 
4670  GOTO6400 
4680  6017  CONTINUE 
4690  DO 7 60 2  1=1 , M 
4700  DO760J  J P -- 1 K ,  IP 

47 10  7601  TAX ( I , JP ) = (TAX ( I , JP )-STI NC ( I  , JP ) ) /X I NC ( I )* 1 00 . 0 
4720  WRITE (2,6070)  ,XINC( I  )  ,(TAX(I , JP) ,JP  =  IK, IP ) 

4730  7602  CONTINUE 

4740  6306  CONTINUE 

4750  6400  CONTINUE 

4760  6500  CONTINUE 

4770  RETURN 

4780  END 

4790C 

4800C 

4810C 

48  20C 

48  30 C 

4S40C 

43  5-0  SUBROUTINERSCH 

4860C  RATE  SCHEDULE  CALCULATIONS 

4870  DO  3005  1=1, M 

4880  DO  3005  J=1,MMM 

4890  I F ( TTI NC ( I , J ) .GE. 0 )  GO  TO  2800 

4900  TTINC ( I ,J )=0  . 

4910  GOTO3000 
4920  2800  CONTINUE 

4930  IF(TTINC( I ,J) .GE.500.0)  GO  TO  2810 


RRCRD  CONTINUED 


4940  TAX ( I , J ) - IT I  NO ( I , J ) *R SH ( 1  ) 

4950  GO  TO  3000 
4960  2310  CONTINUE 

4970  IFCTTINCC I, J) .GE. 1003.0)  GO  TO  2820 
4930  TAX ( I , J ) = ( TTI NC C  I  ,  J ) -500 . 0 ) *RSH ( 2 ) 

49 90  TAX  ( I  ,  J  )  =  TAX  (  I ,  J )  +  AR 5  [I  (  2  ) 

5000  GO  TO  3000 
5010  2820  CONTINUE 

5020  I F ( TTI MC( I , J ) ,GE. 2000 . 0 )  GO  TO  28 30 
5030  TAX  (  I  ,  J )  =  (  TTI  NC ( I  t  J  )  -  1  000 . 0  )  *RSi  1(3) 
5040  TAX (I ,J)  =  TAX( I ,J)+ARSH(3) 

5053  GO TO 3 00 3 
5060  2830  CONTINUE 

5370  I F ( TT I NC ( I , J ) .GE . 3033 . 0 )  GO  TO  2840 
5000  T AX ( I , J )  = ( TT I NC ( I , J ) -2000. 0) *RSH ( 4 ) 
5390  TAX ( I , J )  -TAX ( I , J  >  + AR SH ( 4 ) 

5100  GO  TO  3030 
5110  2840  CONTINUE 

5 1 20  I F (  TT  I NC ( I , J ) . GE . 5 034 . 0 )  GO  TO  2  3  50 
5130  TAX  ( I  ,  J  )  =(TTI NC(  I  ,  J )  -3000.0  )  *RSH  (  5  ) 

5 1 40  TAX ( I , J )  -TAX ( I , J ) +AR SH ( 5 ) 

5150  GO  TO  3000 
5160  2350  CONTINUE 

5170  IF(TTINC( I ,J) .GE.7000 .0)  GO  TO  2360 
5180  TAX  ( I  ,  J  )  =  ( TTI  NC  ( I  ,  J  )  -5000 . 0 )  *R  31 1(6) 
5193  TAX ( I , J )  =  TAX ( I , J )  +  AR  SH ( 6 ) 

5200  GO  TO  3030 
5210  2860  CONTINUE 

5220  IF(TTINC( I t J) .GE.9000 .0)  GO  TO  2870 
5230  TAX ( I , J )  = ( TTI NC ( I , J ) -7000 . 0 ) *R SH ( 7 ) 
5240  TAX  ( I  ,  J  )  -TAX  ( I  ,  J )  +  AR SH  (  7 ) 

5250  GOTO 3 000 
5260  2370  CONTINUE 

5270  I F ( TTI NC ( I , J ) . GE . 1 1 000 . 0 )  GO  TO  2 330 
5230  TAX ( I , J )  = ( TTI NC ( I , J ) -9000 . 3 ) *RSH ( 3 ) 
5290  TAX ( I , J )  -TAX ( I , J ) + AR  SH ( 8 ) 

5300  GO  TO  3000 
53.10  2880  CONTINUE 

5320  I F ( TT I NC ( I , J ) . G  E . 1 4 000 . 0 )  GO  TO  2 89 0 
5330  TAX ( I , J )  =(TTINC(  I . J)  —  1 1 000 . 0 ) *RSH ( 9 ) 
5340  TAX ( I , J )  =TAX( I , J)+ARSH(9) 

3350  GO  TO  3000 
5360  2390  CONTINUE 

5370  IF(TTINC( I  ,J) .GE. 24000.0)  GO  TO  2892 
5 380  TAX ( I , J )  =  ( TTI NC ( I , J ) - 1 4000 . 0 ) *R SH ( 1 0 ) 
5390  TAX ( I , J )  -TAX ( I , J )  +  ARSH (10) 

5400  GO  TO  3000 
5410  2892  CONTINUE 

5420  I  F  ('IT  INC  (  I  ,  J  )  .  GE .  39  000 . 0  )  GO  TO  2894 
5430  T AX ( I , J )  =(TTINC( I , J ) -24000.0 )*RSH( 1 1 ) 
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5440 
5450 
5460 
5470 
5480 
5490 
5500 
5510 
5520 
5530 
5540 
5550 
5560 
5570 
5580 
5590 
5600 
5610 
5620 
5630 
5640 
5650 
5660 
5670 
5680C 
5690C 

5700  IFIK.LE.0)  GO  TO  4080 
57  10  WRITE  (2,')  ."CHILDREN  UNDER  16  "  ,  KK 

5720  WRITE (2, )  /‘CHILDREN  UNDER  14  "  ,L 

5730  WRITE (2 . ) CHILDREN  16  AMD  OVER  ", LL 
5740  4080  CONTINUE 

5750  IF(LLL.GE.I)  WR ITEC 2, ), "QUALIFIES  FOR  OLD  AGE  EXEMPTION" 

5760  IF(MM.GE.l)  WR ITE(2 , ) , "HAS  EMPLOYMENT  EXPENSE  DEDUCTION" 

5770  WRITE(2  , )  ."NO.  OF  INCOME  CLASSES 
5780  WRITE (2 ,  )  , "NO .  OF  L I A , R  TC  CLASSES  »,N 
5790  WR I  TE ! 2  ,  )  , 

5800  WRITE! 2, )  , 

5810  WRITE (2 , ) , "NATURE  OF  PROPERTY  TAX  CREDIT" 

5820  WRITE  (2,  )  ,"=====","  =====*'  /'=====:«  V' =====","  =““="  =====» 

5830  4196  FORMAT! 5X.F8. 3) 

5840  WRITE(2,) , "BASIC  CREDIT" 

5850  WR ITE ( 2 , 4 1 96 ) .BCRED 

5860  WRITE (2, )  , "FRACTION  OFIMCOME  BY  WHICH  CREDIT  REDUCED" 

5870  WR ITE ( 2 , 4 1 96 ) ,INCP 

5880  WRITE (2, ), "FRACTION  OF  PROPERTY  TAX  BY  WHICH  CREDIT  INCREASED" 
5390  WRITE (2 ,4196) ,CRED 

5900  I F ! FP . NE. 1 . ) WR I TE! 2 , ) , " ADJUSTMENT  FACTOR  IS" 

5910  I r ( FP .NE. 1  . ) WR ITE ( 2  ,4 1 96 ) , FP 
5920  WRITE  (2,)  , -"MAX  I  MUM  CREDIT  IS" 

5930  WRITE! 2, 4 196) ,PTP 


TAX ( I  , J )  =TAX( I ,J)  +  ARSH(  1 1  ) 

GO  TO  3000 
2894  CONTINUE 

IF! TTINC! I ,J) .GE. 60000.0)  GO  TO  2896 
TAX! I,J)  =( TTINC! I , J) -39000.0 )*RSH( 12) 
TAX(I.J)  =TAX (I , J )+ARSH(  12) 

GO  TO  3000 
2896  CONTINUE 

TAX (I ,J)  =! TTINC! I , J)-60000.0)*RSH(  13) 

TAX ( I , J )  =TAX ( I , J ) + ARSH (  1  3 ) 

3000  CONTINUE 

I F (  TAX ( I . J ) . LE. 0 . 0 ) TAX ( I , J ) =0 .0 

3005  CONTINUE 

RETURN 

END 

SUBROUTINE  TAB3 
WRITE! 2,  )  , 

WRITE! 2, ) , 

WRI TE! 2 , )  /'BASIC  ASSUMPTIONS  OF  THIS  RUN" 

WRITE (2  ,  )  - "  - "  ,» - "  ,  " - " 

WRITE (2,)  , 

WRITE!  2,  )  , 

IF!  K.  LE.0)  WRITE!  2,  ),•»  SINGLE  PERSON" 

IF! K. GT.0 )WRI TE! 2 , ) ."MARRIED  COUPLE" 


RPCRD  CONTINUED 


5940  IF(N2.LE.0)GO '105499 

5950  WR I  TE(2 ,), "SALES  TAX  CREDIT  15  $10.  DOLLARS  PER  CAPITA" 

5960  WR ITE ( 2  ,  )  , 

5989  5499  CONTINUE 

5985  IF(N3.NE.0)WRITE(2, ), "REGISTERED  PENSION  FUND  CONTRIBUTION  DEDUCTED" 

5986  I F ( N3 . ME .  0  )  WR  ITE ( 2 , ) , "  DEDUCTION  6%  INCOME  UP  TO  $2500" 

5990  RETURN 
6000  END 

6010  SUB ROUT I NETAB4 
6020  WRITEC2,), 

6930  NR I  IE ( 2 , ) , 

6040  WRITE(2 ,) , "  REPRESENTATIVE  TAX  FILER  ANALYSIS" 

6050  WRITEC2,),"  FOR  PROPERTY  TAX  CREDIT" 

6060  311  FORMAT! 3X ,A6) 

6070  UR  I  TE  (  2  , )  , 

6080  NR ITE (2 ,  )  , 

6090  WRITE (2, ) , "DATAFILE  CODE" 

6100  WR I  TE  (2,31 1 ) ,FN 
6110  RETURN 
6120  END 

6130  SUB ROUTINE TAB 5 
6140  ENDFILE2 

6 1 50  5020  FORM AT ( 1 0X , 1 0 ( 8X  ,  I  2 ) ) 

6 1 60  5925  FORMAT!  1 0X , 1 0 (2X , F8 . I  ) ) 

6170  IX=0 
6183  IP=0 

6190  DO5030  I J=1 ,3 

6200  CC ( I J ) =0 

6210  IX=IX+1 

6220  I Y= 1 + IP 

62  30  I p= 1 0* I X 

6240  I F (  IP  . G T.  20  )  I  P-30 

6250  I K=IY 

6260  WRITE (2 , ) 

6279  WRITE (  2 ,  )  , "PROPERTY  CLASSES" 

6280  WR I TE (2,5020) ,  ( JP  ,  JP=IK, I P ) 

6290  WRITE (2,) 

6300  WR ITE (2, )," INITIAL  PROPERTY  TAX" 

6310  WRITE (2 ,5025) , (PTAX( JP) ,JP=IK,IP) 

6320  WRITE (2,) 

6339  WRITE (2,) 

6340  WRITE (2,) 

6350  5122  CONTINUE 
o  3  60  5  939  CO  NT  I NUE 
6370  RETURN 

6380  END 
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I 


INTRODUCTION 


This  program  is  designed  to  examine  the  revenue  and 
incidence  effects  of  possible  sales  and  property  tax  credit 
formulae  in  Ontario.  The  analysis  may  be  conducted  within  three 
economic  frameworks  and  under  two  tax  systems.  The  alternative 
economic  frameworks  are:  the  year  of  the  data  base  (1968);  and, 
1972  and  1973,  assuming  plausible  economic  environments.  The 
alternative  tax  systems  are:  the  tax  system  which  existed  up  to 
December  31,  1971,  and,  the  new  tax  system  introduced  by  Bill  C“259 
taking  effect  January  1,  1972. 

The  program  yields  estimates  of  the  total  cost  of 
specified  credit  formulae  under  the  assumed  economic  environment 
and  tax  system  as  well  as  an  analysis  of  the  cost  and  incidence 
of  the  formulae  by  gross  income  and  family  dependency  classes. 

The  incidence  of  property  taxes  by  income  class  is 

derived  from  the  analysis  of  Guelph  income  and  property  tax 

records.  The  Guelph  results  are  normalized  to  the  provincial 
1 

level. 


1.  See:  Brian  Hull,  GUELPHCRSD:  Manual  for  the  Analysis  of  the 

Revenue  and  Incidence  Effects  of  Tax  Credits  in  Guelph  (Toronto: 
Ministry  of  Treasury,  Economics  and  Intergovernmental  Affairs, 
1972),  mime o |  and.  Staff  Study,  Analysis  of  Income  and  Property 
Taxes  in  Guelph,  (Toronto:  Ministry  of  Treasury,  Economics  and 
Intergovernmental  Affairs,  1972). 


I 


X 


X. 


II  DESCRIPTION  OF  PROGRAM 


The  specification  of  the  tax  system  analyzed  and  the 
economic  environment  is  done  within  the  body  of  the  program 
using  switches.  The  credit  system  employed  must  be  specified 
with  the  appropriate  function  at  the  point  in  the  program  where 
the  analysis  of  the  credit  takes  place. 

The  sales  tax  credit  is  a  function  of  the  number  of 
members  of  the  household  and  taxable  income. ^  Tax  returns  filed 
claiming  a  married  exemption  are  assumed  to  correspond  to  a 
unique  household.  However,  in  households  where  both  spouses 
work  and  each  earns  more  than  $1,6QQ  (under  the  new  tax  act), 
both  file  as  single.  In  addition,  students  with  temporary 
membership  in  the  work  force  who  continue  to  live  at  home  are 
still  members  of  their  parental  household.  (The  exceptions  are 
students  who  either  alone  or  in  groups  may  rent  accommodation 
apart  from  official  school  residences.  Such  groups,  occupying 
separately  assessed  residential  units,  would  be  classified  as 
households.)  Thus,  the  proportion  of  single  taxfilers  who 
constitute  unique  households  is  very  substantially  less  than 
the  proportion  of  married  ones. 


1.  See:  Hon,  W.  Darcy  McKeough,  "Preliminary  Outline  of  a  System 
of  Property  and  Sales  Tax  Credits  for  Ontario  Taxpayers," 
Meeting  of  Ministers  of  Finance,  Ottawa,  November  1-2,  1971 
(Toronto:  Department  of  Treasury  and  Economics),  mimeo. 


As  the  sales  tax  credit  depends  upon  size  of  household, 
and  as  the  proportion  of  households  among  filers  who  file  as 
married  is  nearly  one  -  while  the  proportion  among  those  who 
file  as  single  is  much  less  than  one  -  a  classification  of  tax 
returns  by  personal  exemption  class  as  well  as  by  gross  income 
class,  is  required. 

In  the  "Green  Book",  Taxation  Statistics »  this 
information  is  provided  only  on  a  Canada  basis.  It  Is  thus 
necessary  to  employ  adjustment  factors  to  reduce  the  Canada 
data  to  a  provincial  basis.  This  is  done  within  the  program 
both  for  numbers  of  taxfilers  and  taxable  income. 

The  estimated  number  of  returns  and  amount  of  taxable 
income  in  each  personal  exemption  class  is  summed  up  and  adjusted 
by  a  factor  which  brings  the  total  to  the  known  Ontario  total 
in  the  base  year.  The  number  of  returns  and  taxable  Income  are 
projected  to  1972  and  1973  by  factors  whose  derivation  is 
discussed  in  Appendix  B.l. 

Two  methods  are  used  for  deriving  taxable  income 
under  the  new  tax  act.  Bill  C-259.  The  first  allows  only  for 
the  change  in  personal  exemptions.  The  second  employs  the 
average  change  in  the  tax  base  by  income  tax  class,  as  indicated 
by  the  GUAM  analysis  conducted  within  a  similar  economic 
framework.  The  procedure  is  discussed  more  fully  in  Appendix  B.2. 


1. 


Ontario  Studies  in  Taxation  Nos'.  1,  2  and  4  employ  the  GITAN 
program  as  modified  and  developed  by  the  Ontario  Treasury. 


Ill  APPLICATION  OF  PROGRAM  TO  ANALYSIS 


The  principal  purpose  of  this  program  is  to  provide 
a  guide  to  the  revenue  implications  of  alternative  formulae. 

The  estimates  of  the  model  must  be  accepted  within  fairly  broad 
confidence  intervals.  The  extrapolation  procedure  Is  much  more 
rudimentary  than  that  employed  in  Ontario  Studies  in  Tax 
Reform,  No.  4.  The  exact  number  of  households  is  difficult 
to  estimate.  From  the  total  of  residential  properties  assessed 
for  taxation,  must  be  subtracted  summer  cottages  and  vacation 
homes,  residences  whose  occupants  file  an  income  tax  return  in 
some  other  jurisdiction,  and  vacant  lots.  An  estimate  of  the 
number  of  roomers  and  boarders  now  eligible  must  be  added. 


Appendix  A 


TABLES  GENERATED 


SUMMARY, 

A  run  of  this  program  analyses  the  revenue  and  incidence 
effects  of  the  proposed  credit  formula  for  various  target  years. 
The  data  base  for  runs  to  date  of  issue  of  this  manual  is  1968, 

The  data  is  from  the  Taxation  Green  Book  and  is  classified  by 
gross  income  and  dependency  filing  characteristics  for  each 
taxfiler,^  These  tables  are  on  a  Canada  basis  and  are  adjusted 
to  an  Ontario  basis  using  the  ratio  of  taxfilers  and  taxable, 
income  by  income  class  for  Ontario  and  Canada, 

Property  taxes  for  each  income  class  are  derived  from 
the  Guelph  analysis  of  matched  income  tax  and  property  tax  records 
The  property  tax  figures  are  the  average  level  for  each  income 
class  adjusted  for  the  ratio  of  average  provincial  property  taxes 
to  average  Guelph  property  taxes. 

The  advantage  of  the  particular  grouping  of  the  data 
employed  is  that  it  makes  explicit  the  degree  to  which  family 
circumstances  (number  of  dependents)  affect  the  value  of  the 
credit  for  taxfilers  assumed  to  be  bearing  the  same  level  of 
property  taxes.  It  also  a  necessary  grouping  for  calculating 


1.  Table  7A,  All  returns  by  marital  status,  dependents  and  income 
Taxation  Statistics  (Ottawa:  Department  of  National  Revenue, 
Taxation,  edition  1970)  p„104  and  following. 


the  value  and  incidence  of  a  sales  tax  credit  assumed  to  be  $10 


for  each  member  of  a  family,  reduced  by  1  per  cent  of  taxable 
income. 


TABLES . 


A.l  Adjustment  factor,  taxfilers,  Canada  level  to  Ontario 
level. 

A. 2  Number  of  taxfilers  by  marital  status  and  number  of 
dependents,  Canada. 

A. 3  Summary  by  income  class,  number  of  taxfilers  with 

taxable  returns,  Ontario;  number  of  taxfilers,  all 
returns,  Ontario;  number  of  taxfilers,  all  returns, 
target  year  of  analysis,  Ontario. 

A. 4  Adjustment  factor,  taxable  income,  Canada  level  to 

Ontario  level. 

A. 5  Taxable  income.  Total  by  dependency  class,  Canada 

(vertical  sum). 

A. 6  Taxable  income,  Canada. 

A. 7  Taxable  income,  Ontario,  old  tax  act. 

A. 8  Taxable  income,  Ontario,  new  tax  act  (changes  in 

exemptions  method). 

A. 9  Taxable  income,  Ontario,  new  tax  act  (changes  in  tax 
base  by  income  class  method  using  GXTAN  results). 

A, 10  Total  sales  tax  credit  by  income  and  dependency  classes. 

A. 11  Average  value  of  sales  tax  credit  by  income  and 

dependency  classes. 

A. 12  Total  revenue  cost  of  sales  tax  credit. 

A. 13  Number  of  households  by  gross  income  class. 

A. 14  Number  of  households  by  dependency  class. 

A. 15  Number  of  taxfilers  by  dependency  class. 


A.  16 
A. 17 
A, 18 
A0 19 

Ac  20 

A.  21 
A. 22 
A,  23 


Total  number  of  taxfilers. 

Total  number  of  households. 

Property  tax,  average  per  household,  by  income  class. 

Cost  of  property  tax  credit  by  income  and  dependency 
classes , 

Cost  of  property  tax  credit  by  income  class. 

Cost  of  property  tax  credit  by  dependency  class. 

Total  cost  of  property  tax  credit. 

Average  cost  of  property  tax  credit  by  income  and 
dependency  classes. 


1 


Appendix  B 


TAX  SYSTEMS  ANALYZED 


B.l  SUMMARY 

The  provincial  credit  analyser  estimates  the  cost  and 
incidence  of  various  possible  credit  formulae  using  1968  data. 

The  analysis  may  be  conducted  for  1968,  1972  and  1973 
under  both  the  old  tax  act  and  the  act  adopted  in  December  1971, 
0259 . 


The  modification  of  the  tax  base  to  represent  the  base 
under  Bill  0259  may  be  done  by  either  of  two  procedures: 

1,  reducing  the  tax  base  by  the  increase  in  exemptions 
for  singles  and  marrieds  only. 

2.  altering  the  tax  base  by  the  percentage  difference  in 
the  tax  base  under  the  old  and  new  tax  systems  (by  income 
class)  as  indicated  by  provincial  runs  of  GITAN  within  the 
same  economic  environment. 

The  total  cost  of  both  a  sales  tax  credit  and  a  property 
tax  credit  formula  is  very  nearly  the  same,  whichever  procedure 
is  used. 

The  extrapolation  of  the  analysis  from  the  1968  data 
base  is  undertaken  with  the  very  simplest  possible  procedure. 

The  number  of  taxfilers  between  1968  and  1972  increases  at  the 


level  projected  for  Ontario  in  the  GITAN  analysis.  The  number 
of  taxfilers  in  each  income ,  dependency  class  cell  is  increased 
by  this  factor.  Between  1968  and  1972  the  number  of  taxfilers 
in  Ontario  is  estimated  to  increase  by  slightly  more  than  the 
national  average. 

Income  in  Ontario  is  assumed  to  change  between  1968 
and  1972  by  a  factor  which  adopts  the  forecast  performance  of 
the  Ontario  economy  in  1972.^  Taxable  income  in  Ontario  increases 
more  rapidly  than  income  itself  and  this  is  allowed  for  in  the 
analysis. 

1972/1968 


Increase  in  total  income  1.44717 

Increase  in  no.  of  taxfilers  1.18893 

Ratio  of  taxable  income  to^ 
total  accured  income; 

1968  Old  tax  base  .5011 

New  tax  base  .4104 

1972  Old  tax  base  .5747 

New  tax  base  .5014 


Taxable  income  for  1972  is  then  multiplied  by  a  factor 
which  is  the  increase  in  total  income  times  the  increased  share 
of  taxable  income  (1.44717*  ((.5014/. 4104))  =  1.76805). 


1.  Canadian  and  Ontario  Economic  Forecast  (Toronto;  Dept,  of 

Treasury  and  Economics ,  Fall,  1971). 

2.  These  ratios  are  based  on  GITAN  runs  for  X968s  1972  CANADA 
basis.  That  is  GITAN,  Level  7.2  runs  1968,  7:409;'  1972,  7:420. 
This  GITAN  analysis  is  based  on  the  same  forecast  as  that  used 
in  this  study. 


The  extrapolation  procedure  for  the  economic  environ¬ 
ment  used  in  this  analysis  is  the  same  as  that  used  in  the 
Guelph  Analyzer o 

Property  taxes  by  income  class  are  the  average  by 
income  class  for  Guelph  in  1968,  normalized  to  the  provincial 
levelo  See  B.4  for  a  discussion  of  property  tax  level 
extrapolation. 


B, 2  NEW  TAX  ACT. 

Two  methods  are  used  to  estimate  the  tax  base  under 
C-259:  1,  the  change  in  exemption  procedure;  2,  the  GITAN 

procedure, 

1,  Under  the  exemption  procedure,  the  tax  base  is 
reduced  by  the  Increase  in  exemptions  for  singles  and 
married  taxfilers.  Taxable  income  for  taxfilers  filing 
as  single  is  reduced  by  the  increase  in  the  single 
exemption  times  the  number  of  taxfilers  filing  as  single. 
Taxable  income  for  taxfilers  filing  as  married  is  reduced 
by  the  increase  in  the  married  exemption  times  the  number 
of  taxfilers. 

2,  With  the  GITAN  method,  the  taxable  income  by  income 
class  is  multiplied  by  the  ratio  of  taxable  income  under 
the  new  and  old  systems  for  the  appropriate  year. 


Gross  Income  Class  Ratio  of  New  Tax  Base  to  Old 


1968  1972 


$  0 

- 

2,000 

20  687 

7.309 

2,000 

_ 

3,000 

.395 

.568 

3,000 

- 

4,000 

.649 

.697 

4*000 

- 

5,000 

.731 

.791 

5,000 

- 

6,000 

.793 

,833 

6,000 

- 

8,000 

.854 

.889 

8,000 

_ 

10,000 

.892 

.922 

10,000 

- 

25,000 

.963 

.953 

25,000 

and  over 

1.067 

1.0626 

Source; 

GITAN  runs 

7:409  and  7:20,  Ontario. 

Note  in  1968  and 

1972  taxable  income  under  $2*000  is  an  increase  in  a 
negative  amount. 


Factors  for  GITAN  method  used  in  program  income 


classes : 


Gross  Income  Glass  Ratio  of  New  Tax  Base  to  Old 


1968 

1972 

$  0 

2,500 

0 

0 

2,500 

- 

3,000 

.395 

.568 

3,000 

- 

3,500 

.649 

.697 

3,500 

- 

4,000 

.649 

.697 

4,000 

- 

4,500 

.731 

.791 

4,500 

- 

5,000 

.731 

.791 

5,000 

- 

5,500 

.793 

.833 

5,500 

6,000 

.793 

.833 

6,000 

- 

6,500 

.854 

.889 

6,500 

- 

7,000 

.854 

.889 

7,000 

- 

7,500 

.854 

.922 

7,500 

- 

8,000 

.854 

.922 

8,000 

- 

8,500 

.892 

.953 

8,500 

- 

9,000 

.892 

.953 

9,000 

- 

9,500 

.892 

.953 

9,500 

- 

10,000 

.892 

.953 

10.000 

- 

25,000 

.963 

1.063 

25,000 

and  over 

1.067 

1.572 

The  changed  exemption  method  analyzes  only  one  of 
the  significant  differences  between  the  old  and  new  tax  acts. 

It  does  represent,  however,  the  biggest  modification  in  the 
tax  base.  The  changes  in  the  tax  base  produced  by  the  GITAN 
method  is  the  net  effect  of  all  the  alterations  in  the  tax 
base  produced  by  the  new  tax  act. 

Thus,  the  GITAN  method  Includes  the  net  effect  of 
the  following  alterations: 

L  changed  exemptions  for  singles  and  marrieds. 

2.  dividend  tax  credit. 

3.  standard  employment  expense  allowance, 

4.  top  employee  benefits, 

5.  deductibility  of  U.I.C.  contributions, 

6.  attribution  to  employees  of  employer  medicare  contributions. 

7.  taxation  of  U.I.C.  benefits. 

8.  sickness  and  accident  benefits  from  private  plans. 

9.  inclusion  of  scholarship  and  fellowship  income  and 

special  student  allowance. 

10.  changed  definition  of  medical  expenses. 

These  factors  do  not  include  the  effects  of  the 


capital  gains  tax. 


Bo  3  HOUSEHOLD  POPULATION. 


In  1968,  there  were  3.366  million  tax  returns  filed  in 

Ontario,  of  which  .522  million  constituted  untaxable  returns. ~ 

For  that  year,  the  Ontario  Department  of  Municipal  Affairs  reports 

that  there  were  2.173  million  households  assessed  for  residential 
2 

and  farm  taxes.  A  household  for  tax  purposes  must  be  distinguished 
from  a  more  behaviourally  defined,  socio-economic  household.  More 
than  one  "family1 2 3*  may  share  living  quarters  assessed  as  a  separate 
unit,  and,  a  "family"  may  have  more  than  one  dwelling,  ski  chalet, 
cottage,  etc.,  each  of  which  Is  separately  assessed  as  a  household 
for  tax  purposes.  In  addition,  many  vacant  lots,  zoned  for 
residential  housing,  are  counted  as  separately  assessable  units 
and  counted  as  "households". 

1968 

Number  of  tax  returns  3.345  m. 

Number  of  households  2.173  m. 

Number  of  households  in  analysis  2.172  m. 

Number  of  Households 
for  Residential  and  Farm  Tax  Purposes. 

million 


1968 

2.172 

1969 

2.236 

1970 

2.400 

1.  See  Taxation  Statistics,  (Ottawa;  Dept,  of  National  Revenue, 
Taxation,  1970  edition).  Table  1,  p.is, 

2.  Hon.  W.  Darcy  McKeough,  1968  Summary  of  Financial  Reports  of 
Municipalities ,  (Toronto:  Dept,  of  Municipal  Affairs,  1969). 

3.  Hon.  W.  Darcy  McKeough,  Summary  of  Financial  Reports  of 
Municipalities, op .Git. ,  1968  and  1969  editions,  and 
Department  of  Municipal  Affairs. 


1972 

3.977  m. 

2.583  m. 


The  actual  number  of  principal  householders 


expected  under  the  tax  credit  must  be  the  total  reduced 
by  the  number  of  second  establishments  in  the  Province 
(primarily  cottages)  and  increased  by  the  anticipated 
increase  in  claims  from  roomers  and  boarders  and  tenants,, 
Both  of  these  factors  are,  to  some  extent,  judgmental  and 
estimated  from  other  sources.  An  allowance  for  them 
should  be  made  after  the  other  analysis  is  completed. 

The  analysis  implies  a  3.75  per  cent  increase 
in  the  household  population  in  1971  and.  1972.  This  compare 
with  an  increase  of  2.95  per  cent  between  1968  and  1969, 
and  of  7,33  per  cent  between  1969  and  1970. 

For  purposes  of  estimating  the  cost  of  the  sales 
tax  credit  the  full  taxfiling  population  is  used.  To 
estimate  the  revenue  cost  of  the  property  tax  credit, 
only  the  household  population,  as  defined  above,  is  used. 
The  derivation  of  the  household  population  from  the 
taxfiling  population  is  explained  below. 


The  analysis  assumes  that  all  tax  returns  filed  with 
a  married  tax  exemption  constitute  a  household  for  purposes  of 
the  property  fax  credit .  It  further  assumes  that  95  per  cent 
of  those  who  file  as  single  and  claim  at  least  one  dependent 
constitute  a  household  for  purposes  of  the  credit®  The  population 
of  those  who  file  as  single  with  no  dependents  is  reduced  by  the 
following  factors: 


Adjustment  Factors  From 
Taxfiler  to  Household  Basis 
for  Taxfilers  Filing 
as  Single  with  No  Dependents® 


Gross 

Income 

Class 

0  -  2 9 500 

.1710 

2  j, 500  -  3,000 

.2281 

3 jOOO  -  3*500 

.2851 

3,500  -  4,000 

.3421 

4,000  -  4,500 

.4561 

4,500  -  5,000 

.5416 

5,000  -  5,500 

.6300 

5,500  -  6,000 

.6300 

6,000  -  6,500 

.6300 

6,500  -  7,000 

.6300 

7,000  -  7,500 

.6300 

7,500  -  8,000 

.6300 

8,000  -  8,500 

.6300 

8,500  -  9,000 

.6300 

9,000  -  9,500 

.6300 

9,500  -  10,000 

.6300 

10,000  -  25,000 

.6300 

25,000  and  over 

.6300 

B.4  PROPERTY  TAXES. 


Property  tax  by  income  class  is  the  average  by  income 
class  for  Guelph  in  1968,  normalized  to  the  Provincial  level. 

Extrapolation  of  property  taxes: 


Guelph  mill  rates: 

1968 

K> 

O 

o 

1969 

28.90 

1970 

32.97 

1971 

30.60 

increase  71/68 

1.1102 

implicit  annual  rate  of  change  72/68  2.65  per  cent. 


AVERAGE 

PROPERTY  TAX 

1968 

Ontario 

$337.00 

Guelph 

Guelph  analysis 

$326.00 

$320.00 

Guelph  analysis 


Appendix  C 


PROGRAM  PARAMETERS 


C.l  VARIABLES . 

XTRO(2Q) 

TINCQ(20) 

TBL0(20) 

TXQ(20) 

XNTR(20) 

XARO(20) 

VABLO(20) 

TAX  (20) 

D(2Q,  8) 

TT(20,  8) 

PNTR(20) 

ATO(20) 
STT(20) 
PTBG(20,  8)  = 

SM(8) 

SD  (8) 

TB  (20,  8) 


No,  of  taxfilers  with  taxable  returns, 
ONTARIO . 

Total  income,  ONTARIO 

Taxable  income,  ONTARIO 

Total  tax,  ONTARIO 

Number  of  tax  returns,  CANADA 

Total  taxfilers,  all  returns,  ONTARIO 

Total  taxable  income,  all  returns,  ONTARIO 

Total  tax,  all  returns,  CANADA 

Nq„  of  tax  returns,  CANADA,  in  each  persona 
exemption  class 

Taxable  income,  for  each  personal  exemption 
class,  CANADA 

Ratio,  all  ONTARIO  taxfilers,  to  all 
CANADIAN  taxfilers 

Not  used 

Sum  of  taxable  income  by  income  class 

Ratio,  all  ONTARIO  taxable  income  to  all 
CANADIAN  taxable  income 

Sum  of  taxable  income  by  exemption  class 

Sum  of  returns,  by  exemption  class 

Taxable  income  by  income  and  dependency 
class,  ONTARIO 


SDI (20) 

Sum  of  returns  by  income  class 

SC(20,  8) 

Cost  of  credit  by  personal  exemption  class 
and  income 

SNTK 

= 

Sum  of  returns ,  CANADA 

STRO 

= 

Sum  of  taxable  returns,  ONTARIO 

STBO 

= 

Sum  of  taxable  income,  ONTARIO 

SING 

= 

Sum  of  total  income,  ONTARIO 

STO 

Sum  of  total  tax,  ONTARIO 

DELS 

= 

Increment  in  single  exemption,  new  bill 

DELM 

= 

Increment  in  married  exemption,  new  bill 

CSUM 

Total  cost,  property  tax  credit 

tsc 

= 

Total  cost,  sales  tax  credit 

HSTJM 

s= 

Total  number  of  households 

TBS8(20) 

sa 

GITAN  adjustment  factors  of  taxable  income 
1968 

TBS2 (20) 

= 

GITAN  adjustment  factors  of  taxable  income 
1972. 

C.2  FORMAT  OF  DATAFILE 


Variables  are  read  in  from  the  datafile  in  the 
following  order: 


XTRQ 

No,  of  taxf tiers  with  taxable  returns, 
ONTARIO 

TINCQ 

= 

Total  income s  ONTARIO 

TBLO 

s: 

Taxable  income,  ONTARIO 

TXO 

Total  tax,  ONTARIO 

XNTR 

= 

Number  of  tax  returns,  CANADA 

XARO 

= 

Total  taxfilers,  all  returns,  ONTARIO 

XABLO 

= 

Total  taxable  income,  all  returns,  ONTARIO 

TXO 

= 

Total  tax,  all  returns,  ONTARIO 

D 

No,  of  tax  returns,  CANADA 

TT 

2= 

Taxable  income,  for  each  personal  exemption 
class,  CANADA 

PTX 

= 

Average  level  of  property  tax  by  gross 
income  class. 

C. 3  CLASSIFICATION  OF  DATA 


Data  is  classified  by  gross  income  and  dependency 


class. 


The  family  status  (dependency)  classification  is 
as  follows: 

Single  s  no  dependents 

”  one  or  more  dependents 

Married ,  no  dependents 
one  dependent 
V  two  dependents 

"  three  " 

!l  four  " 

"  five  or  more  dependents. 

The  gross  income  classes  used  in  the  analysis  are 
as  follows: 


$  0 

- 

2,500 

2,500 

- 

3,000 

3,000 

- 

3,500 

3,500 

- 

4,000 

4,000 

- 

4,500 

4,500 

- 

5,000 

5,000 

- 

5,500 

5,500 

- 

6,000 

"6,000 

- 

6,500 

6,500 

- 

7,000 

7,000 

- 

7,500 

7,500 

- 

8,000 

8,000 

- 

8,500 

8,500 

- 

9,000 

9,000 

- 

9  *  500 

9,500 

10,000 

10,000 

- 

25,000 

25,000 

and  over 

Information  is  aggregated  up  to  $2,500  in  all  arrays 
where  the  GREEN  BOOK  gives  a  finer  breakdown.  Similarly,  because 
not  all  arrays  break  down  information  between  $10,000  and  $25,000 
this  information  is  aggregated  within  the  program. 


Appendix  D 


DATA  BASE 


D. 1  SOURCES 

XTRO  =  No„  of  taxfilers  with  taxable  returns s  ONTARIO 
TINCO  =  Total  income,  ONTARIO 

TBLO  =  Taxable  income,  ONTARIO 

TXO  =  Total  tax,  ONTARIO 

Source;  Taxable  returns,  Table  8,  "All  returns  by  Province  and 
Income”,  Taxation  Statistics,  (Ottawa;  Department  of 
National  Revenue,  Taxation,  1970  edition),  p.112. 

XNTR  =  No.  of  tax  returns,  CANADA 

Source;  Table  2,  "All  returns  by  Income  Classes”,  Taxation 
Statistics,  opcCito,  p.16-35. 

XARQ  =  Total  taxfilers,  all  returns,  ONTARIO 

XABLO  =  Total  taxable  income,  all  returns,  ONTARIO 
TXO  -  Total  tax,  all  returns,  ONTARIO 


Source;  Table  8,  Taxation  Statistics,  p.112.  This  data  is 
classified  only  up  to  $5,000  gross  income. 


D  =  No.  of  tax  returns,  by  dependency  class,  CANADA 

TT  =  Taxable  income,  for  each  personal  exemption  class, 

CANADA 


Source:  Table  7A,  "All  returns  by  Marital  Status,  Dependents 

and  Income”,  Taxation  Statistics,  op.cit.,  p. 104-107. 

PTX  =  Property  tax  by  income  class 

Results  of  the  Guelph  analysis  adjusted  to  a  provincial  basis  and 
extrapolated  to  the  target  year  of  the  analysis. 


PROCRD 


1 00$ TTY, 120 
!  1  0$RPC 


120  COMMON 
130  COMMON 
140  COMMON 
150  COMMON 
160  COMMON 
170  COMMON 
180  COMMON 
190  COMMON 
200  COMMON 

210  COMMON 

211  COMMON 


X  TOO (20) ,TI NCO ( 20 ) ,TBLO(20) 
7X0(20) , XNTR ( 20 ) 

X ARO (20) ,XASLO( 20) , TAX (  20  ) 

D ( 20  ,8 )  ,TT(20,8) 

PNTR (  20 ) , A  TO  ( 20  ) 

STT(20) ,  PTBO (20,8) 

SM ( 8.)  ,TB(20,8) 

SD(8) , SD1 (20) 

SC(20,8) 

PTXC20 ) 

TBS3 ( 20 ) , TBS 2 ( 20 ) 


212C 
21  3C 


220C 
230C 
240C 
241  C 
242C 
243C 


PROVINCIAL  CREDIT  ANALYZER 
FOR  PROPOSED  SALES  AND  PROPERTY 
TAX  CREDITS  IN  ONTARIO 


250C  =======  =  =  ====  =  =  =====  =  =:==  =  =  =  ====: 

260C  JAN. 12,1972  BRIAN  HULL 
270C  TAX  AND  FISCAL  POLICY  BRANCH , 
280C  DEPT.  OF  TREASURY  AMD  ECONOMICS 
290C  =  =  =  =  =  =  =  =  =  =  = 


300  C 


310C 

320C  SALES  TAX  CREDIT  FORMULA-  LINE  3590  &FF 

330C  PROPERTY  TAX  CREDIT  FORM-  LINE  4740  &FF 

340C 
350  C 

360  DATA  XTOO  ,TINC(),  TBL()/60*0/ 

370C  XTRO  =  NO,  OF  TAXFILERS  WITH  TAXABLE  RETURNS,  ONT. 
3800  TINCO  =  TOTAL  INCOME,  ONT. 

390C  TBLO  =  TAXABLE  INCOME,  ONT. 

400  DATA  TXO,XNTR/40*0/ 

41 0C  TXO  ~  TOTAL  TAX,  ONT. 

420C  XNTR  =  NUMBER  OF  TAX  RETURNS,  CANADA 
430  DATA  XARO,XA3LO,TAX./60*0/ 

440C  XARO  =  TOTAL  TAXFILERS,  ALL  RETURNS,  ONT. 

450C  XA3L0  =  TOTAL  TAXABLE  INCOME,  ALL  RETURNS,  ONT. 

460C  TAX  =  TOTAL  TAX  ALL  RETURNS,  CAN. 

470  DAI A  0/160*0/ 


49  0C 
5'00  C 
510C 
520C 
530C 


—  mo  nP  T  a  v 

—  1 M  \)  «  )  1  1  HA 


PERSONAL 


RETURNS  IN  EACH 
EXEMPTION  CLASS. 

ADJUSTED  TO  ONT. 

D ( I  ,  J )  ISA  20*8  MATRIX 
J=]  SINGLE,  NO  DEPENDENTS 
U — 2  SINGLE,  ONE  OR  MORE  DEPENDENTS 


INITIALLY  CANADA 
WITH 


2 


UJ 

PROCRD  CONTINUED 


540C 

J=3 

MARRIED,  NO 

550C 

J=4 

MARRIED, 1 

560C 

J=5 

MARRIED, 2 

570C 

J=6 

MARRIED, 3 

530C 

3-1 

MARRIED, 4 

590C 

J=8 

MARRIED, 5+ 

600  DATA  TT/ 160*0/ 


DEPENDENTS 


61 0C  TT  =  TAXABLE  INCME,  FOR  EACH  PERSONAL  EXEMPTION  CLASS 
62 0C  CANADA 

630  DATA  PNTR.ATC)/ 453*0/ 

640C  PNTR  =  RATIO,  ALL  ONTARIO  TAXFILERS  IT)  ALL  CANADA 
650C  A TO  =  NOT  USED 

660  DATA  STT/20*0/ 

670C  STT  =  SUM  OF  TAXABLE  INCOME  BY  INCOME  CLASS 


630  DATA  PTBO/16 0*0/ 


690C  PTBO  =  RATIO,  ALL  ONTARIO  TAXABLE  TO  ALL 
700 C  CANADA  TAXABLE 


710  DATA  SM, SD/ 1 6*0/ 

720C  SM  =  SUM  OF  TAXABLE  BY  EXEMPTION  CLASS 
730C  SD  =  SUM  OF  RETURNS  BY  EXEMPTION  CLASS 
740  DATA  TB/.l  60*0/ 


750C  TB  =  TAXABLE,  ONTARIO 
760  DATA  SD 1/20*0/ 

770C  SD 1  =  SUM  OF  RETURNS  BY  INCOME  CLASS 

.730  DATA  SC/ 160*0/ 

790C  SC  =  COST  OF  GIVEN  CREDIT  BY 
800C  PERSONAL  EXEMPTION  CLASS 


8-1  0  DATA  P IX/ 20*0/ 

820.C  PTX  =  PROPERTY  TAX  LEVEL  BY  INCOME  CLASS 
830C  THE  INCOME  CLASSES  USED  FOR  1968  BASE  DATA  ARE' 

840C  UP  TO  $2500  GROSS  INCOME?  2,5-3.0(000)? 

850C  3.0-3. 5?  3. 5 -4.0 $4. 0—4. 5? 4. 5 -5.0; 

860C  5. 0-5. 5? 5. 5-6.0? 6. 0-6. 5  ?6. 5-7.0? 7 .0-7.5? 

870C  7 ,5-8 .0?  8 . 0-8 . 5 ?  8 . 5-9 . 0  ? 9 . 0-9 . 5  ? 9 .5- 1 0 ? 

880C  10-1 5? 1 5-20?20-25?25* 

890C  N.3.IN  THE  1968  BASE  YEAR  DATA  INCOME  CLASSES  FROM  10-25 
900C  ARE  COLLAPSED  INTO  ONE  CLASS  DUE  TO  DATA  DEFI Cl ENCES . . 
910  DATA  SNTR,  S.TRO/2*0/ 

920C  SNTR  =  SUM  OF  RETURNS,  CANADA 

930C  STRO  =  SUM  OF  TAXABLE  RETURNS.  ONT 

940  DATA  STBO , SI NO , STO/3*0/ 

950C  STBO  =  SUM  OF  TAXABLE I NCOME ,  ONT. 

960C  SINO  =  SUM  OF  TOTAL  INCOME,  ONT. 

970C  STO  =  SUM  OF  TOTAL  TAX  ONT. 

930  DATA  DELS, DELM , I SW2/3*0/ 

990C  DELS  =  INCREMENT  IN  SINGLE  EXEMPTION,  NEW  BILL 
1000C  DELM  =  INCREMENT  IN  MARRIED  EXEMPTION,  NEW  BILL 
1010  DATA  CSUM ,TSC , HSUM/3*0/ 

1020C  CSUM  =  TOTAL  COST,  PROPERTY  TAX  CREDIT 

1030C  TSC  =  TOTAL  COST,  SALES  TAX  CREDIT 


3 


PROCRD  CONTINUED 


1040C  HSUM  =  TOTAL  NO.  OF  HOUSEHOLDS 

1045  DATA  TBS3/0 , . 395 , . 649 , . 649 , .731  ,  .731  , .793 , .793, . 854 , . 854  , . 354 , 
1046&  .854  ,.892, .892,-892, .892, .963, 0,0.1 .067/ 

1047  DATA  TBS2/0 , . 568 , .697 , .697  , .79 1  , .791  , .833, . 833 . .889  , . 839, .922  , 
1048&  .922  ,  .953,. 953, .95  3,. 953,1  .363/0,0,1  .5.72/ 

1050  .100  FORMAT CA6) 


1060  PRINT, " DA  TAF I LE "  , 

1070  READ  1 00 ,FN 
1080  CALL  OPENF ( 1 , FN ) 

1090  READ( 1 ,)(XTRO(I ) ,1=1 ,20) 
1100  READ( 1 . )  (TINCO ( I ) , I = 1 ,20 ) 
1110  READ( 1 , )  (TBLO( I) ,1=1 ,20) 

1 1 20  READ( 1 , )  (TXO ( I ) , 1=1 ,20) 

1 1 30  R EAD( 1 , )  (XNTR( I ), 1=1 ,20) 
1140  READ( 1 , )  (XARO(I) ,1=1 ,6) 

1  1 50  READ( 1  , )  ( X A3LO ( I ) , I  =  1 , 6 ) 
1.1  60  R EAD (  1  ,  )  (TXO(  I)  ,1  =  1  ,6) 

1  1 70  DO  150  J=1 ,8 

1  1  80  READ<  1  ,  )  (D.(  I  ,J)  ,  1  =  1  ,20) 

1190  150  CONTINUE 

1 200  DO  1 60  J=1 ,8 

1210  READ( 1 ,)(TT(I ,J) ,1=1 ,20) 

1220  160  CONTINUE 

.1230  READC1  ,)(PTX(I)  ,1  =  1  ,20) 

.1240  CALLCLOSEF.(  1  ) 

1 250  SW=2 


1260  ISW2=2 
1270  ISW3=2 
1272  ISW4=1 


1280C 

SN 

=  TA3LE  SWITCH-  THE  HIGHER  THE  VALUE  THE  FEWER 

1.290C 

TABLES 

1  300C 

IS  A  2 

=  1  OLD  TAX  BILL 

1  3T0C 

=  2  NEW  TAX  BILL 

13  20C 

IS  A3 

=  1-  BASE  YR;  2-  1972;  3-  1973. 

1  322C 

ISW4  = 

1  -  ADJ,  FOR  THE  CHANGED  PERSONAL  EXEMPTIONS 

1  324C 

— 

2  ADJ.  TAXABLE  INCOME  BY  GITAN  RESULTS 

1 330  200 

FORMA 

T!2X,5(F8.2 ,2X ) ) 

1340  210  FORMAT!  2X  ,5 ( F 1 2 . 2 , 3X  )  ) 
1350  212  FORMAT ( 2X , 1 0 ( F8 . 2 , 2X ) ) 
1360  213  FORMAT!//) 

1370  214  FORMAT  ( 2X , 8 ( FI  2 . 2 ) ) 


1330  215  FORMAT ( 2X," SI MGLE ", 18X, "MARRIED" ) 

1390  216  FORMAT!  2X  ,»» NO.  OF  DEPENDENTS") 

1  400  217  FORMAT !  8X  ,"0"  ,  1  1  X  , !!  1  n  ,  1  1  X ,  "0  "J  1  X  ,  “  1  "  ,  I  1  X  , "  2"  ,  1  1  X  3‘M  1  X  ,"4"  , 
1410&  1  1  X , "5  +  " ) 

1420C  ADJ.  OF  NO.  OF  TAXFILERS  AND  DEPENDENTS 
1  430C 
1  440C 


1450  DO  300  1  =  1  ,20 
1 4  60  S  NTR  =  X  NTR ( I ) +SNTR 


4 


'J’J 

PROCRD  CONTINUED 


1470  5 TOO  =XTRO ( I ) +STRO 

1480  300  CONTINUE 

1490C 

1500C 

15  10C 

1520  DO  350  1=7,20 

1530  350  XAR()(  I )  =X  ARO  (  I )  +XTRO  (  I ) 

1540C 
1  550C 

1560  XAROC 1 7) =XARO ( 1 7 ) +XAROC 18)+XAR0( 19) 

1570  XAROC 1 8 ) =0 
1 580  XAROC 19 )=0 
1590C 

1600  XNTRC 1 7 ) =XNTR ( 1 7 ) +X NTR ( !8)+XNTR( 19) 

16.10  XNTRC  1  8  )  =0 
1620  XNTR C 1 9 ) =0 
1630C 

1631  DO  295  J=1 ,8 

1632  TTC 1  7 ,  J )  =  TT( 1 7,J)+TT( 1 8 , J TOTT C 1 9 , J ) 

1634  295  CONTINUE 

1  636  TBLOC  1  7  )  =TBL()  (  1  7  ) +TBLO  C  1  8)+TBL0<  19) 

1  640C 
1  650C 

1660C  CANADA  TO  ONTARIO  ADJUSTMENTS 

1670  DO380  1=1,20 

1680  PNTRC  I )  =X  ARC)  C  I ) /XNTRC  I ) 

1690  380  CONTINUE 

1700  IFCSW.NE. 1 )  GO  TO  381 

17.10  PRINT,*'  AD  J ,  FACTOR,  TAXFILERS,  CANADA  TO  ONT" 
1  720  PRINT,-" 

17  30  DC) 38  2  1  =  1,20 
1740  PRINT  21 2, PNTRC I) 

1750  382  CONTINUE 

1760  331  CONTINUE 

1770  PRINT  213 

1780  IFC  SN  .GT.  2.)  GO  TO  383 

1790  PR  I  NT, 41  NO  o  OF  TAXFILERS,  CANADA" 

1800  PRINT," =======================" 

1310  PRINT, »  BASE  YEAR” 

1320  DC)  336  1  =  1,20 

1830  PRINT  2)2, CD( I ,J) ,J=5  ,8) 

1350  386  CONTINUE 
1360  DO 3 87 J= 1  ,8 
1370  D0387  1=1,20 
1880  SDC  J)  =SDC  J.)+DC  I ,  J) 

1890  337  CONTINUE 

1900  PRINT21  2,  (SDC  J)  ,  J=!  ,3.) 

1910  383  CONTINUE 
1920  PRINT  21  3 
1930  DO  390  1=1 ,20 


5 


PROCRD  CONTINUED 


1940  DO  390  J=!  ,8 

1950  D ( I  , J)=D( I ,  J ) *PNTR( I ) 

I960  D(  I  T  J)=D(  I  ,  J  )  *.,9989 

1970C  .9989  ADJUSTS  ESTIMATED  TAXFILERS  TO  OBSERVED  ONTARIO  TOTALS 
1980  I E ( I SW3 . NE . 2 ) S0T039 1 
1990  D ( I , J ) =D( I ,J)*1 . 1 8893 

2000 C  1.18893  ADJUSTS  TAXFILERS  TO  EXPEC.  LEVELS  1972 
201 0C  IN  ONTARIO  ( JAN. 4 J 972) 

2020  391  CONTINUE 

2030  I F ( ISW3.NE. 3)G0T0392 

2040  D( I , J ) =D( I ,  J )  *  1 .2510 

2050C  1.2510  ADJUSTS  TAXFILERS  TO  EXPEC.  1973 

2060  392  CONTINUE 

2070  390  CONTINUE 

2080C 

2090C 

2100  DO  425  1=1 ,20 

2110  DO  425  J=1 ,8 

2120  SD1 ( I ) =SD 1 (I)+D(I,J) 

2130  425  CONTINUE 

2140  IFCSW.GT.4)  GO  TO  426 

2150  PRINT  213 

2152  P  R I  NT 2 1 3 

21 54  PRINT  213 

2160  PRINT,"  XTRO  XARO  SDL" 

2170  PRINT,"  =====  ====  ===" 

2180  DO  430  1=1,20 

2190  PRINT  2 1 2 ,XTRO( I ) ,XARO( I )  ,  SD1  ( I ) 

2200  430  CONTINUE 
2210  426  CONTINUE 
2220  PRINT  213 
2230C 

2240C  ADJ  TAXABLE  INCOME 

2250  DO  500  1=1,20 

2260  STBO=TBLO(I )+STBO 

2270  SI  NO  =TINCO (I )+SI NO 

2280  S'lO  =TXO(  I )  +STO 

2290  500  CONTINUE 

2300  IE ( SW.GT.  4 )  GO  TO  505 

2310  PRINT, "TOTAL  TAXABLE  ,ONT",STBO 

2320  PRINT," TOTAL  INCOME ,0 NT" , SI NO 

2330  PRINT,  "TOTAL  TAX,  0  NT.",  SIR) 

2340  505  CONTINUE 
j  2350C 

2360  P  R I  NT 2 1 3 
2370C 

2380  DO  510  1=1,20 

2390  STT ( I ) =TT( I ,1  ) +TT (1,2) +TT ( 1 , 3 )  +  TT( I ,4) 

24008,  +TT(  1,5)  +  TT(  I  ,6  )+TT(  1 ,7  ) +TT(  1,8) 

2410  510  CONTINUE 


PROCRD  CONTINUED 


2420  D05 ! 1  1=1,20 

2430  D05 1 1  J=!  ,8 

2440  PTB()(  I  ,  J )  =TBLO(  I  )/STT(  I  ) 

2450  511  CONTINUE 
2460  IFCSW.GT.5)  GO  TO  516 
2462  PRINT  213 
2464  PRINT  213 

2470  PR INIV'ADJ. FACTOR  , TAXABLE  I NCOME , CANADA  TO  ONT." 
2480  PR  I  NT  ,  "  ^  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =■'» 

2490  DO  512  1=1,20 
2500  PRINT  212 .(PTBOC I ,J) , J=1 ,8) 

2510  512  CONTINUE 
2520  516  CONTINUE 
2530  DO  5.1 5  1  =  1,20 
2540  SMC  1 ) =SM( 1  ) +TT ( 1,1) 

2  550  SM  C  2 )  =SM  (  2 .)  +TT  (1,2) 

2560  SMC  3) =SM( 3 ) +TTC 1,3) 

25.70  SMC 4)  =SM(4.)+TT(  1,4) 

2580  SMC  5) -SM C  5 ) +TTC 1,5) 

2590  SMC6)=SM(6)+TT( I ,6) 

2600  SMC  7)  =SM(7)+TT.(  I  ,7) 

26 1 0  SMC  8 ) =SM ( 8 ) +TTC 1,8) 

2620  515  CONTINUE 
2630  IFCSW.GT.6)  GO  TO  522 
2640  PRINT2 1 3 
26  42  PRINT  213 

2650  PRINT, "TAXABLE  INCOME, VERTICAL  SUM  .CANADA" 

2660  PRINT,  *'====r===^===========================" 

2670  PRINT  212, CSMCJ) ,J=1 , 8) 

2680  PRINT213 
2690  522  CONTINUE 


[ 

[ 

[ 

c 

[ 

[ 

c 

c 

c 

[ 


2695  SUM-0 
2700  DO  525  1=1,20 
2710  DO  525  J=1 ,8 
2720  TBC  I  ,J)=TT.(  I,  J)*PTBOC  I,J) 

2730  TBC  I ,  J)=TBC  I ,  J)*l  ,083.1 
'2735  SUM=SUM+TBC I , J) 

2740C  1,0831  IS  THE  NORMALIZATION  FACTOR  WHICH  ADJUSTS  EST.  TO  ACTUAL  TAX A3I 

2750  I  PC  I SW3 .NE.  2 ) G0T0527 
2760  TBC I, J)=TBC I , J)*l .76805 

2770C  1.76805  IS  THE  EXTRAP.  OF  ONTARIO  TAXABLE  INCOME  TO  1972  (MAR.10,'72) 
277 1C  IT  IS  COMPOSED  OF  TWO  FACTORS? 

2.772C  1.  1.447.17  ,  THE  INCREASE  IN  GPP  OVER  THE  INTERVAL 


[ 

[ 

31 J 

[ 


2773C  2,  1.2217,  THE  INCREASE  IN  TAXABLE  AS  A  %  OF 


2774C 
2775C 
2780C 
2781  C 
2782C 

2790  527  CONTINUE 


ACCRUED  INCOME  OVER  TIE  INTERVAL  ( ..  50  1  4/ . 4  1  04  ) 
UNDER  THE  PROPOSED  TAX  SYSTEM 


[ 

t 

[ 
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PROCRD  CONTINUED 


2800  I F ( ISW3 . NE. 3) GO TO 528 

28  10  TB ( I  ,  J )  =TB  ( I ,  J )  *-1  . 9  3 1  3 

2320C  1.9313  ADJUSTS  TAXABLE  TO  EXPEC  1973 

2330  523  CONTINUE 

2840  525  CONTINUE 

2845  PRINT  ,SUM 

2850  IFCSW.GT.6)  GO  TO  532 

2852  PRINT  213 

2854  PRINT  213 

2360  PRINT,” NO.  OF  TAXFILERS , ONTARIO" 

2870  PRINT,"  ================== =====-” 

2880  DO  530  1=1,20 

2390  PRINT  212,(D(I,J),J=1,8) 

2900  530  CONTINUE 

2901  DO  529  J=! ,8 

2902  SD( J ) =SD( J) *0 

2903  529  CONTINUE 
2910  DO 400 J= 1,8 
2920  DO 400 1= 1 , 20 

2930  SD( J)=SD( J)+D(I ,J) 

2940  400  CONTINUE 

2941  SNTR=0 

2942  DO401  J=1,8 

2943  SNTR=SNTR+SD( J) 

2944  40!  CONTINUE 
2950  PR  I  NT, "TOTAL" 

2960  PRINT  212,(SD(J) , J= 1 ,8) 

2970  PRINT  213 

2980  532  CONTINUE 

2990  IF ( SW ,GT. 6 )  GO  TO  536 

3000  PRINT, "TAXABLE  INCOME , ONTARIO" 

3010  PRINT, "======================" 

3020  PRINT,"  OLD  BILL” 

3030  DO  535  1=1 ,20 

3040  PRINT212, (TB( I , J) ,J=1 ,8) 

3050  5  35  CONTINUE 

3051  536  CONTINUE 

3061  DO  538  1=1,20 

3062  DO  537  J= 1 ,8 

3063  A  TO ( I ) = ATO ( I ) +TB  C I , J ) 

3064  537  CONTINUE 

3065  538  CONTINUE 

3066  DO  539  1=1,23 

3068  PRINT21 0, ATO( I) 

3069  539  CONTINUE 
3370  DELS =500. 

3080  DELM=850 . 

3090  D0543  1=1,20 
3100  DO  543  J=1  ,8 

3110  IB ( I , J ) =TB ( I ,  J )  *  1 000 . 
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PROCRD  CONTINUED 


3120  T3( I , J)=TB( I , J)*1000. 

31  3.0  D ( I  , J )=D(  I  ,  J )  * !  000 . 

3140  543  CONTINUE 
3150  IF( ISW2.NE. 2)  G0T0549 
3155  I F ( ISW4.NE..1)  GO  TO  910 
3160  PRIN.T213 

3170  PR  I  NT,” TAX ABLE  INCOME  , ONTARIO” 
3180  PR  I  NT , 5i  ==  ============  =========.« 

3190  PRINT,'5  NEW  BILL” 

3200  D0544  1=1 ,20 
3210  DO  544  J=1 ,2 

3220  TB( I,J)=TB(I ,J)-(DELS*D( I , J ) ) 
3230  IF(T3 ( I , J ) .LE .0 )TB< I ,  J )=0 
3240  544  CONTINUE 
3250  DO  547  1=1 ,20 
3260  DO  547  J=3,8 

3270  TB(  I ,  J)  =  TB.(  I  ,  J)-( DELM*D ( I  ,  J ) ) 

3280  IF(TB(I,J).LE.0)  TB(I,J)=0 

3290  547  CONTINUE 

3300  DO  548  I =1,20 

3310  D0548  J= 1 ,8 

3320  TT( I,J)=T3( I  ,J)/1 000000. 

3330  548  CONTINUE 
3340  DO 550  1=1,20 
3350  PRINT21 2,(TT( I, J) ,J=1 ,8) 

3360  550  CONTINUE 

3370  PRINT  213 

3371  GO  TO  549 

3372  910  CONTINUE 

3373  IF ( ISW3.NE. 1 )  GO  TO  935 

3374  DO  915  1=1,20 

3375  DO  914  J= 1  , 8 

3376  TB ( I , J )  =TB( I ,J)*TBS8( I ) 

3377  914  CONTINUE 

3378  915  CONTINUE 

3379  GO  TO  999 

3380  935  CONTINUE 

3381  IF( ISW3.NE.2)  GO  TO  850 

3382  DO  916  1=] ,20 

3383  DO  917  J= 1 ,8 

3384  TB ( I , J) =TB ( I , J) *T3S2( I) 

3385  917  CONTINUE 

3386  916  CONTINUE 
333  7  C 

3388  P R I NT 2 1 3 

3389  999  CONTINUE 

3390  DO  947  1=1,20 

3391  DO  947  J=  1  ,8 

3392  TT(  I  ,  J )  =  TB  ( I  ,  J  )/.!  000000 . 

.339  3  9  47  CONTINUE 


PROCRD  CONTINUED 


3394  PRINT, "TAXABLE  INCOME, ONT.  " 

3395  PRINT , "=-============ =====" 

3396  PRINT,  "NEW  TAX  AC-T,GITAN  METHOD'1 

3397  00950  1=1,20 

3398  P R I NT 212, (  TT(  I ,J) ,J=1  ,8) 

3399  950  CONTINUE 
3403C 

340  4C 

3405  549  CONTINUE 

3406  DO 5 40  1  =  1  ,20 

3407  DO  540  J= 1 , 8 

3410  GO  TO  (601  ,602, 603, 604, 605, 606, 607, 60S) ,J 

3420C  XY/  SINGLE  0,1?  MARRIED  1-6 

3430  601  X Y=0 

3440  GO  TO  610 

3450  602  XY=1 

3460  GO  TO 6 1 0 

3470  603  XY= 1 

3480  GO  TO610 

3490  604  XY=2 

3500  GO  TO  610 

3510  605  XY=3 

3520  GO  TO  610 

3530  606  X Y=4 

3540  GO  TO  610 

3550  607  XY=5 

3560  GO  70  610 

3570  603  XY=6 

3530  610  CONTINUE 

3590  SC(  I,  J).  =  (  1  ,+XY)*D(  I  ,  J)*10. 

3600  SC(. I  ,  J )  =SC  ( I ,  J)  - .  0 1  *TB(  I  ,  J ) 

3610  IF( SC ( I , J) . LE.0 )  SC ( I , J ) =0 

3620  540  CONTINUE 

3622  PRINT  2.13 

3624  PRINT  213 

3626  PRINT  213 

3628  PRINT21  3 

3630  PRINT, "TOTAL  SALES  TAX  CREDIT  BY  DEPENDENCY  CLASS 

3650  I F  ( I SW2  .  EQ .  2  )  P R I  NT ,  "  (  NEW  B I  LL ) 11 

3660  PRINT  215 

3670  PRINT  216 

3680  PRINT  217 

3690  DO  545  1=1,20 

3700  PR  I  NT 2 1 4 , ( SC ( I , J )  ,  J= 1  ,3 ) 

3710  545  CONTINUE 
3720  D0546  J=1 ,8 
37  30  5 46  Si.U  J)  =SM(  J )  *0 
3740  00654  J= 1 ,8 
3750  D0650  1=1 ,20 
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PROCRD  CONTINUED 


3760  650  SM(J)=SM( J)+SC(I ,J) 

3770  PRINT,"  TOTAL" 

3780  PRINT  21 4, (SMC J) , J=1 ,3) 

3790  PRINT  213 

3300  PRINT, "AVERAGE  COST  OF  SALES  TAX  CREDIT" 

38  1  0  PRINT,  "================================»' 

3820  PRINT  215 

3330  PR  I NT 2 1 6 

3340  PRINT217 

3350  D0934  1  =  1  ,20 

3860  DO  934  J=i,8 

3370  SC(I, J)=SC(I,J)/D(I ,J) 

3380  934  CONTINUE 

3890  DO  936  1=1  ,20 

3900  PR  I  NT  2  1  4  ,  C  SC  (  I  ,  J  )  ,  J=  I  ,  8  ) 

3910  936  CONTINUE 
3920  DO  655  J  =  1  ,8 
3930  655  TSC=TSC+SM( J) 

3940  PRINT  213 

3950  PRINT, "REVENUE  COST  OF  SALES  TAX  CREDIT" 

3960  PRINT," - — - - - - - " 

3970  I F ( I5N2 . EQ . 2 )  PRINT,"  (NEW  BILL)" 

3930  PRINT  2 1 4 ,TSC 
3990  PRINT  213 

4000 C  Q /  1-8s  ADJUSTMENT  FACTORS  TO  REDUCE  TAXFILER  DATA 

4010C  HOUSE!  10LD  DATA 

4020  01 =.95 

4030  Q3= . 63 

4040  DO  656  1=1,20 

4050  D ( I , 2 ) =D( I  ,2)  *3  1 

406.0  D(  1 ,  1  )=D(  I  ,  1  )*Q3 

4070  656  CONTINUE 

4080  02 =.4 

4090  03= . 5 

4100  04= . 6 

.4  110  0  5=  .8 

4520  06= . 95 

4130  07= . 905 

4135  09= ,3 

4140  D( 1 , 1 )=D( 1 , 1 ) *09*07 
4150  D < 2 , 1  ) =D( 2 , 1 ) *02*07 
4160  DC 3, 1  )=D(3, 1 ) *03*07 
4170  0(4, 1 )=D( 4, 1 ) *04*07 
4.1  80  D  ( 5  ,  1  )  =D  (  5  ,  I  )  *05*07 
4190  DC 6, 1 )=D(6,1 ) *06*07 
4200  D0  700  1=1 ,20 
4210  700  SD1  C I ) =SD 1 C I ) *0 
4220  DO 7 1 0  1=1,20 
4230  DC)  710  J=1  ,8 
4240  SOI C I ) =SD 1 (I )+D( I ,J) 


TO 


PROCRD  CONTINUED 


4250  710  CONTINUE 
4260'  D0712I=1  ,20 
4270  SD1  (  I  )  =SD  1  (  D/.l  000. 
4280  7.12  CONTINUE 
4290  PRINT  213 


4292  PRINT  213 

4300  PRINT, "MO.  OF  HOUSEHOLDS  SY  INCOME  CLASS" 

43  1  0  PRINT  =================================" 

4320  D0714  1=1,20 
4330  PR  I NT2 1 3, SD1 ( I ) 

4340  714  CONTINUE 
4350  DO  711  J= 1 , 8 
4360  711  SM( J)=5M( J)*3 
4370  DO  720  1=1 ,20 
4380  HSUM=HSUM+SD1 (I) 

4390  720  CONTINUE 
4408  DO  730  J= 1 , 8 
4410  DO  730  1=1 ,20 
4420  SMC J)=SM( J)+D( I , J ) 

4430  730  CONTINUE 

4440  D0731  J  =  1  ,3 

4450  731  SMC J)=SM( J)/1 000. 

4468  PRI  NT , " NO .  OF  HOUSEHOLDS  3Y  DEPENDENCY  CLASS- 
^ 470  PRINT," ===================================== 

4480  PR  I  NT  2 1 4 , ( SM ( J ) , J= 1 ,8) 

'4490  PRINT213 


4580 

4510 

4523 
4522 

4524 
4d25 
4526 


4540 

4550 

4560 

45.73 


4580 
4598 
4600 
46  1  0 
4620 
4630 
4640 
4650 
4  660 


PR  I  NT,  "NO.  OF  TAXFI LERS ,  ONTARIO" 


PRINT," - " 

PRINT  214, (SD(J) ,J=1 ,8) 

PRINT  213 

PRINT, "TOTAL  NUMBER  OF  TAXFI LERS" 
PRINT, "=========================" 

PRINT  214,5 NT R 
PR  I  NT 2 1 3 

PR  I NT, "TOTAL  NO  OF  HOUSEHOLDS" 

PR  I  NT , " ======  ============ ====» 

PRINT  214, HSUM 

T3C 1 , 1 )=TB( 1  ,  1)*Q9*Q7 


TBC2, 1)=T3(2, 1 ) *02*37 
TB  ( 3 , 1  )  =TB  (3,1)  *03*- 07 
TBC4,  1 )=T3(4, 1  ) *04*07 
T3C5, 1 )=T3(5, 1 ) *05*07 
TB  (  6  ,  !  )  =  IB .(  6  ,  I  )  *06*07 
DO  732  1=1,23 
TB ( I , 1 ) =T3 (1,1) *08 
T3C I ,2)=TBCI ,2) *01 
732  CONTINUE 
PR  I  NT 21 3 


4670  PR  I  NT, " PROPER!  TAX  AVER AG 
4630  PRINT," - 


nous 


Ell  OLD" 

_ ii 


.9  - 


PROCRD  CONTINUED 


4690 
4700 
4710 
4720 
4730 
4740 
47  50 
4.760 
4.770 
4780 
4300 
4810 
43  20 
4330 
4840 
4350 
4360 
4370 
4830 


D0749  1  =  1  ,20 
PR  I  NT 2 1  2 ,  PTX  ( I  ) 

749  CONTINUE 
DO  750  1=5,20 
DO  750  J=1  ,8 

5  C  (  I  ,J)=(90.0+PTX(  I  )*.  1  0  )  -a-D  (  I  ,J) 

SCC  I ,  J).  =5C ( I  ,  J )  - .  0  1  *TS (  I  ,  J  ) 

I F C SC ( I , J ) . LE . D ( I , J ) *0 . )  SC ( I , J ) =D ( I , J ) *0 . 

750  CONTINUE 
PRINT  213 


P  R I  NT 


"■°OST  Of 


PR  INI  !•'=== 


PROPERTY  TAX  CREDIT" 


IFC ISW2.EQ.2i  PRINT," 

PRINT  215 

PRINT  256 

PRINT  2 1 7 

DO  760  1=1,20 

PRINT  2  1  4 , .(  SC ( I  ,  J )  ,  J = 

760  CONTINUE 


( NEW  BILL)" 


1,3) 


4890 

761 

CONTI  N 

t  ? 

J  FT 

49  00 

DO 

730 

1=1 

,20 

49  1  3 

733 

3D  1 C I ) 

=SD 1 C I ) *0 

4920 

TDM 

LA/ 

790 

1  =  1 

,23 

49  30 

DC) 

790 

J-l 

,3 

4950 
4960 
4970 
4980 
4990 
5000 
53  1  0. 
5020 
53  30 
5340 
5050. 
5460 
5373 
5380 
5390 
5  1  00 
5  1  1  0 
5  1  20 

c  i 

_J  i  J7Y 

5140 
5150 
5 1  60 
5170 
5180 
519:0 


793  SD! ( I ) =  SD 1 ( I ) +SCC I , J) 
DO  830  J= 1 ,8 
300  SMC J)=SMC J)*0 
DO  805  J=1  ,3 


DO  805  1=1,20 


I) 

3Y 


335  SMC  J)=SMC  J).+  SCC  I 
PRINT  213 

P R  I  NT ,  "COS T  0 F  CP.  ED  I  T 
P  R I  NT  ,•»=======“===-= 

IFCISW2.EQ.2)  PRINT," 

DO  3.13  1=1,23 
PRINT  2  1 3  ,  SD  1  CD 
310  CONTINUE 
PRINT  21 3 
PR  I  NT,  "COST  C)i:. 

I  EC  ISW2.EQ.2-)  PRINT," 
PRINT  2  l  4,  (  SMC  J)  ,  J=1  ,3) 
PR I  NT 2 1 3 

,)  T  ‘  r 

l  X  V,  JL  i  »  X  «j 

PRINT, 

DO  820  J - 1 ,3 
C  S  U  M=  C  S  UM  +  5  M  C  J ) 

323  CONTINUE 

PRINT,  "COST  OF  PROPERTY 


INCOME  CLASS" 

•—  —  —  - - -  i! 


(ME 


BILL)" 


CREDIT  BY  DEPENDENCY  CLASS" 


C  NF'" 


!  C  > » 


BILL) 


T'  A  V 
X  i  \  /\ 


:redit  " 


( 


.'0 


PROCRD  CONTINUED 


5200 

I F ( ISN2.EQ.2) 

DDT  '  J  T 

l  a  A  j.  y 

"  (NET  BILL)" 

52  10 

PRINT  214, CSU 

.  X 

m 

5220 

PRINT  213 

523S 

PRINT," AVER AC 

E  COST 

OF  PROPERTY  TAX 

k  o  /  n 

<C-  -r  V. 

PRINT,"-  -  - 

— 

3250 

PRINT  215 

5260 

PRINT  216 

5270 

PRINT  217 

5280 

IF( ISN2.EQ.2) 

PR  I  NT , 

"  (NEC  BILL)" 

5290 

DO  639  1=1,20 

5350 

DO  833  J=  1 ,8 

5310 

SC( I, J)=3C(  I  , 

J )  /  D  ( I  , 

J) 

5325 

330  CONTINUE 

5330 

DO  843  1=1,20 

5340 

PRINT  21 4, (SC 

( I , J)  ,  J 

-1  ,8  ) 

5350 

340  CONTINUE 

5360 

PRINT  213 

5370 

350  CONTINUE 

5335 

STOP 

5390 

END 

DIT" 

— - — .it 
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I.  INTRODUCTION 


The  Guelph  Tax  Analyzer  Model  is  an  addition  to  the 

growing  number  of  computer  simulation  models  employed  in  the 

development  and  testing  of  proposed  and  legislated  modifications 

.1 

to  the  personal  income  tax  structure.  Since  1969,  tax  analysis 

through  computer  simulation  has  become  a  routine  element  in  the 

process  of  policy  development  and  monitoring  carried  on  within 

.2 

the  Ontario  Treasury. 

The  Guelph  Model  was  designed  for  the  purpose  of  test¬ 
ing  alternative  approaches  to  the  integration  of  property  taxes 
and  income  taxes  through  the  device  of  tax  credits.  It  is  unique 
in  its  integration  of  property  tax  and  income  tax  records.  It 
examines  the  detailed  Incidence  of  property  taxes  and  the  re¬ 
distributive  effects  of  alternative  tax  credit  formulae.  For 
purposes  of  designing  the  property  tax  credit ,  the  incidence  of 


1.  The  earliest  models  in  this  field  were:  John  Bessons,  "A  General 
Income  Tax  Analyzer",  Royal  Commission  on  Taxation,  Staff  Study 
25,  (Ottawa:  Queen's  Printer,  1967)  and  Joseph  A.  Pechman,  "A 
New  Tax  Model  for  Revenue  Estimating",  in  Alan  T.  Peacock  and 
Gerald  Hauser,  editors,  Government  Finance  and  Economic  Develop¬ 
ment  (Paris:  O.E.C.D.,  1965). 

2.  Analysis  of  the  Federal  Tax  Reform  Proposals,  Ontario  Studies  in 
Tax  Reform  1  (Toronto:  Department  of  Treasury  and  Economics, 
1970):  Effects  of  Ontario's  Personal  Income  Tax  Proposals, 
Ontario  Studies  in  Tax  Reform  2  (Toronto:  Department  of  Treasury 
and  Economics,  1970):  and  Tax  Reform  and  Revenue  Growth  to  1980, 
Ontario  Studies  in  Tax  Reform  4  (Toronto:  Department  of  Treasury 
and  Economics,  1971). 


property  taxes  was  examined  for  the  principal  income  recipient 
in  each  household.  Further  examination  of  property  tax  incidence 
was  done  for  household  income  and  by  age  group.  This  extensive 
analysis  of  the  Incidence  of  property  taxes  has  provided  valuable 
information  on  the  pattern  of  housing  consumption. 

The  large  variance  in  property  tax  level  makes  knowledge  of 
the  range  of  relief  which  a  particular  credit  formula  would  make 
available  to  heads  of  household  with  similar  levels  of  current 
income  espectially  important.  The  Guelph  Model  marks  a  further 
step  towards  a  capability  to  anlayze  the  total  burden  of  taxes 

by  income  class  along  the  lines  of  Richard  Musgrave's  path- 

3 

breaking  work  of  1951. 


3.  Richard  A.  Musgrave,  "Distribution  of  Tax  Payments  by  Income 
Groups:  A  Case  Study  for  1948",  National  Tax  Journal,  March, 
1951,  pp.  1-53.  Such  an  application  of  the  computer  simula¬ 
tion  approach  is  proposed  by  Joseph  A.  Pechman  in  "A  new  Tax 
Model  for  Revenue  Estimating",  op.  clt.  p.  240. 


II.  DESCRIPTION  OF  PROGRAM 


The  Guelph  Analyzer  Model  is  a  computer  model  designed 
to  examine  the  incidence  of  residential  property  taxes  in  Guelph 
and  test  the  redistributive  effects  of  alternative  tax  credit 
formulae. 

The  model  uses  the  individual  tax  records  for  residents 
of  Guelph  in  1968.  These  were  stored  on  computer  tape  in  the 
provincial  master  file  and  matched  with  the  corresponding  assessment 
records  of  the  City  of  Guelph.  The  Guelph  assessment  information  was 
recorded  on  computer  tape  following  complete  re-assessment  at  market 
values  of  the  residential  properties  in  the  municipality.  The  joining 
of  an  individual  income  tax  return  to  the  corresponding  assessment 
record  was  done  by  a  computer  program  which  ensures  the  complete 
anonymity  of  the  individuals  whose  records  are  used  in  the  analysis. 

Income  taxes  are  examined  under  the  provisions  of  the 
Income  Tax  Act  as  it  existed  up  to  December  1571  (omitting  the  special 
in-year  tax  reduction  of  3  per  cent)  and  under  the  new  tax  act  which 
came  into  effect  January  1972.  The  analysis  is  conducted  for  1968^  the 
year  for  which  the  data  is  derived  and  for  1972.  There  is  no  dis¬ 
tinction  in  the  analysis  between  properties  which  are  owner -occupied 
and  those  which  are  rented.  The  results  indicated  both  the  in¬ 
cidence  of  property  taxes  and  the  impact  effects  of  the  property 
tax  credit.  The  final  incidence  of  the  property  tax  credit  depends 
on  how  housing  prices  are  affected  by  the  change  from  a  uniform 


exemption  per  household  to  tax  relief  dependent  upon  both  income 

1 

and  property  taxes  paid. 


The  method  used  in  this  study  is  analogous  to  that  employed 

2 

in  earlier  studies  in  this  series.  In  examining  the  current  tax 

system,  the  model  allows  for  the  change  in  personal  exemptions,  the 

major  alternation  in  the  tax  base  between  it  and  the  former  system. 

The  model  also  allows  for  the  change  in  the  dividend  tax  credit  but 

because  of  data  limitations  in  the  master  taxfile,  does  not  include 

3 

other  modifications  in  the  tax  base. 


1.  Under  conditions  where  the  withdrawal  of  the  basic  shelter 
exemption  reduces  the  price  of  supermarginal  houses  propor¬ 
tionately  to  the  decrease  in  price  of  marginal  houses,  the 
final  incidence  of  the  removal  of  the  basic  shelter  allowance 
is  on  the  occupier,  whether  he  is  the  owner  or  the  tenant. 
Quantitative  assessments  of  the  difference  between  the  final 
incidence  of  a  tax  charge  on  owners  and  tenants  have  not  been 
attempted.  See  Herbert  A.  Simon,  "The  Incidence  of  a  Tax  or 
Urban  Real  Estate",  page  428  in  Richard  A.  Musgrave  and  Carl 
S.  Shoup,  Readings  in  the  Economics  of  Taxation  (Homewood: 
Richard  Irwin  Inc.,  1959). 

2.  See:  Analysis  of  the  Federal  Tax  Reform  Proposals,  op.  cit.; 
Effects  of  Ontario’s  Personal  Income  Tax  Proposals,  op.  cit.; 
and  Tax  Reform  and  Revenue  Growth  to  1980,  op.  cit. 

3.  In  the  analysis  of  the  current  tax  system,  the  differences 
between  it  and  the  former  system  which  have  not  been  taken 
into  account  are:  the  standard  employee  expense  allowances; 
deductibility  of  U«I„C.  contributions  and  taxation  of  U.I.C. 
benefits;  attribution  of  employee  medical  contributions  and 
sickness  and  accident  benefits  from  private  plans;  the  changed 
definition  of  medical  expenses;  and  the  inclusions  of  scholar¬ 
ship  and  fellowship  income  and  the  special  student  allowance. 


The  Data  Base 


In  1968 9  there  were  15,407  residential  properties  in 
4 

Guelph.  In  the  match  of  income  tax  and  property  assessment  re- 
cords,  it  was  possible  to  identify  8,779  of  the  properties  and 
assign  to  them  the  tax  returns  of  the  occupants.  For  about  3,235, 
identification  was  impossible.  These  properties  were  not  labelled 
by  an  individual  name  but  were  described  as  vacant  lots  or  vacant 
dwellings,  called  "owner-occupied" ,  owned  by  companies  or  lots 
"owned  by  listed  tenants".  The  balance  of  3,393  could  not  be 
matched  because  surnames  on  the  income  tax  and  assessment  records 
did  not  correspond  for  a  given  address.  This  group  accounts  for 
about  22  per  cent  of  the  total.  As  about  a  fifth  of  all  households 
change  address  every  year,  most  of  this  mismatch  is  due  to  removals 
and  some  is  caused  by  inconsistent  spelling  of  names  between  property 
assessment  and  income  tax  records.  As  both  owner-occupied  and  rental 
accommodation  are  assessed  at  market  value  in  Guelph,  this  study  does 
not  distinguish  between  the  two  forms  of  tenure.  The  matched  records 
include  those  for  both  owner-occupied  and  rented  accommodation. 

The  Extrapolation  from  1968  to  1972 

In  extrapolating  the  1968  data  base  to  1972,  the  simplest 

procedure  was  used.  The  master  taxfile  from  which  the  Guelph  income 

tax  records  are  taken  contains  information  in  a  more  summary  form 

than  does  the  intensive  sample  used  for  compilation  of  Taxation 
5 

Statistics. 


4.  Blue  Book:  1968  Summary  of  Financial  Reports  of  Municipalities 
(Toronto:  Department  of  Municipal  Affairs,  1968),  page  1. 

5.  Taxation  Statistics.  Ottawa:  Department  of  National  Revenue: 
Taxation,  1970  Edition. 


The  detailed  information  of  the  intensive  sample  makes  possible 
the  relatively  complex  extrapolation  procedure  employed  in  Tax 
Reform  and  Revenue  Growth  to  1980.  However,-  the  intensive  sample 
does  not  include  surnames  and  addresses  with  the  records. 

In  the  extrapolation  used  in  this  study,  the  number  of 
taxfilers  and  properties  is  increased  by  the  estimated  increase  in 
the  number  of  taxfilers  in  Ontario  between  1968  and  1972.  In  a 
similar  fashion,  income  of  each  taxfiler  is  Increased  by  the 
change  in  average  income  in  Ontario  between  1968  and  1972.  The 

6 

forecast  used  for  1972  was  under- taken  by  the  Ontario  Treasury. 

Property  taxes  in  1968  are  calculated  by  applying  the 
1968  mill  rate  for  Guelph  to  the  sum  of  assessment  for  land  and 
improvements  for  each  unit.  Where  applicable,  the  special  farm 
mill  rate  is  applied.  The  total  rate  for  Guelph  in  1968  was  27.7 
mills.  This  included  a  mill  rate  of  16.3  for  general  purpose;  6.7 
for  elementary  schools  and  4.7  mills  for  secondary  schools.  The 
special  farm  rate  in  1968  was  24.7  mills.  In  1968  residential  property 
was  re-assessed  at  market  values  in  Guelph.  It  is  to  this  assessment 
roll  that  the  1968  mill  rate  is  applied  In  the  study  as  the  purpose 
is  to  examine  the  Incidence  of  property  taxes  in  a  situation  where 
the  discrepancy  between  assessed  and  market  values  is  at  a  minimum. 

For  the  1972  analysis,  the  study  assumes  the  1971  mill  rate  of  30.6 
remains  unchanged  in  1972. 


6. 


Canadian  and  Ontario  Economic  Forecast  (Toronto:  Department 
of  Treasury  and  Economics,  Fall,  1971). 


Distributions  by  Age  Group  and  Family  Income 


Tests  for  differences  in  the  incidence  of  property  taxes 
among  age  groups  and  for  alternative  definitions  of  income  are 
possible  within  the  Guelph  analysis.  The  population  of  principal 
income  recipients  in  each  household  is  divided  into  three  age 
groups:  Those  less  than  35  years  of  age  in  1958,  those  between  35 
and  64  years  of  age  and  those  65  years  of  age  and  over.  The 
incidence  of  property  taxes  and  the  average  value  of  the  property 
tax  credit  is  examined  for  each  group.  The  incidence  of  property 
taxes  on  the  entire  group  of  households  is  also  examined  for  a  more 
inclusive  definition  of  household  income;  that  is,  where  the  name 
of  more  than  one  income  taxfller  in  the  household  also  appears  on 
the  property  assessment  record,  household  income  is  the  sume  of 


these  incomes. 


III.  APPLICATION  0 g  THE  PROGRAM  TO  THE  ANALYSIS 


The  program  has  been  developed  and  run  on  the  PDP  10  of 
Dateline  Systems,  Toronto*  The  certain  matches  are  stored  on  one 
reel  of  computer  tape,  the  total  set  of  matches,  certain  and 
doubtful,  on  two.  The  criteria  by  which  Income  tax  returns  are 
selected  for  analysis  are  set  within  subroutine  XTAX. 

Analysis  of  Principal  Income  Recipients 
XTAXA  -  Certain  matches 
XTAXB  -  Total  matches 

Accummulated  (Family)  Income 

XTAXB  -  Certain  matches 
XTAXC  “  Total  matches 

The  age  group  subset  analysed  Is  also  specified  in  sub“ 
routine  XTAX.  The  extrapolation  requires  the  setting  of  switch 
IEXTRP  in  subroutines,  XTAX,  XACUM  and  XADJ.  The  switch  is  set 
at  "1"  for  1968  and  ”2”  for  1972. 

The  first  experimental  run  of  income  tax  data  alone  was 
made  September  13,  1971.  The  first  full  run  of  income  tax  data 
alone,  October  9  and  the  first  full  run  of  matched  data  November  30, 
1971.  The  extrapolation  was  added  January  16,  1972.  The  formula 
adopted  for  the  Ontario  Property  Tax  Credit  Plan  was  first  tested 
March  8,  and  the  final  runs  were  made  May  8,  1972. 
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Appendix  A 


TABLES  GENERATED 


A . 1  SUMMARY 


The  Guelph  Analyzer  program  examines  matched  income  tax 
returns  and  property  assessment  rolls  for  residents  of  the  City  of 
Guelph.  The  1968  income  tax  returns  for  residents  of  Guelph  were 
selected  from  the  Master  File  of  Ontario  income  tax  returns.  The 
Master  File  contains  summary  information  for  each  tax  return  filed 
within  Ontario.  Residential  properties  in  Guelph  were  re-assessed 
in  1968  at  market  value.  Storage  of  the  income  tax  and  assessment 
data  on  computer  tape  made  possible  a  matching  of  records  which 
avoided  the  necessity  of  visual  inspect ion*  The  computer  program 
which  matched  the  income  and  property  tax  data  is  described  in 
Appendix  G. 

The  Guelph  Analyzer  computes  the  incidence,  and  distribu¬ 
tion  of  property  taxes,  the  incidence  of  the  combined  Income  and 
property  tax  burden,  and  the  implications  of  alternative  formulae 
for  the  relief  of  the  property  tax  burden.  The  model  reads  each 
matched  record  in  sequence.  Each  record  is  checked  to  determine 
whether  it  fits  the  selection  criteria  of  the  particular  run.  Thus, 
the  data  may  be  analyzed  by  age  group,  family  income,  income  of 
principal  income  recipient  and  so  on. 


A .  2  TABLES 


I  GENERAL  PARAMETERS 


1.  Run  identifiers. 

Location:  Guelph 
Run  No. : 

Run  Year:  (Year  of  data  base  or  extrapolation) 

Run  Bate: 

2.  Income  tax  rate  schedules. 

Old  rate  schedule 
New  rate  schedule 

3.  Property  tax  classes 

(Bp  to  30  classes) 

4.  Income  tax  classes 

(Bp  to  30  classes) 

5.  Property  tax  credit  assumptions. 

Basic  credit: 

Credit  as  %  property  tax: 

Credit  as  %  assessment: 

Credit  as  %  income: 

Maximum  credit  available: 

Average  assessment: 


II  GENERAL  TABLES 


The  format  of  these  tables  provides  for  a  matrix  of  re¬ 
sults  of  up  to  30  columns  of  property  tax  classes  and  of  up  to  30 
rows  of  income  classes. 


1.  Number  of  taxfilers 

2.  Total  accumulated  income 

3.  Average  gross  income 

4.  Average  property  tax  paid 

5.  Average  income  taxes  paid,  old  tax  structure 

6.  Average  taxes  paid,  new  tax  structure 

7.  Average  disposable  income,  new  tax  structure 

8.  Average  disposable  income  as  a  per  cent  of  gross  in¬ 

come,  new  tax  structure. 


9.  Average  property  tax  credit ,  new  tax  structure 

10.  Total  accumulated  income  tax,  old  tax  structure 

11.  Total  accumulated  income  taxes,  new  tax  structure 

12.  Total  accumulated  property  tax  credit,  old  tax 

structure . 

13.  Total  accumulated  property  tax  credit,  new  tax 

structure. 


Ill  SUMMARY  TABLES 


Sumaary  tables  classify  the  data  by  income  class  only. 


1.  Summary  tax  deduction  data. 

(i)  Total  accumulated  income 

(ii)  Total  accumulated  deductions 

(iii)  Total  accumulated  medical  receipts 

(iv)  Total  accumulated  donations 

2.  Summary  tax  exemption  data. 

(i)  Total  accumulated  personal  exemptions,  actual 

data. 

(ii)  Total  estimated  personal  exemptions,  old  tax 

structure. 

(iii)  Total  estimated  personal  exemptions,  new  tax 

structure. 

(iv)  Average  estimated  exemptions,  old  tax  structure. 

3.  Summary  dependency  data. 

(i)  No.  of  children  under  16. 

(ii)  No.  of  children  over  16. 

(ill)  No.  of  taxfilers. 

(iv)  No.  of  taxfilers  filing  as  single. 

4.  Summary  tax  credit  data. 

(i)  Total  credit,  old  tax  structure. 

(ii)  Average  credit,  old  tax  structure. 

(iii)  Total  credit,  new  tax  structure. 

(iv)  Average  credit,  new  tax  structure. 

5.  Summary  tax  data. 

(i)  Total  taxes,  old  tax  structure. 

(11)  Average  taxes,  old  tax  structure. 

(iii)  Total  taxes,  new  tax  structure. 

(iv)  Average  taxes,  new  tax  structure. 


S.  Incidence  of  property  tax  credit. 

(i)  Credit  %  gross  income,  old  structure. 

(ii)  Credit  %  income  tax,  old  structure. 

(iii)  Credit  %  gross  income,  new  structure. 

(iv)  Credit  7a  income  tax,  new  structure. 

7.  Incidence  of  income  taxes. 

(i)  Income  tax  7,  gross  income,  old  structure. 

(ii)  Income  tax  less  credit  %  gross  income,  old 

structure. 

(iii)  Income  tax  7a  gross  income,  new  structure. 

(iv)  Income  tax  less  credit  %  gross  income,  new 

structure. 

8.  Dividends 

(I)  Total  dividends  from  taxable,  Canadian 
companies. 

(ii)  Old  dividend  tax  credit. 

(iii)  New  dividend  tax  credit. 


IV  STATISTICAL  SUMMARIES 


1.  Median  property  class  by  income  class. 

2.  Median  income  class  by  property  class. 

3.  Mean  property  tax  by  income  class. 

4.  Standard  deviation,  property  tax  by  income  class. 

5.  Average  disposable  income  -  by  property  class,  gross 

income  less  income  taxes. 

6.  Standard  deviation,  average  disposable  income. 

7.  Average  disposable  income  -  by  income  class,  gross 

income  less  income  taxes. 

8.  Standard  deviation,  average  disposable  income. 

9.  Average  disposable  income  ~by  income  class,  gross 

income  less  property  and  income  taxes. 

10.  Standard  deviation. 

11.  Average  disposable  income  -  by  income  class,  gross 

income,  less  tax  plus  credit. 

12.  Standard  deviation. 


Appendix  B 


PROGRAM  OUTLINE 


B.l  SUMMARY 


This  appendix  presents  an  outline  of  the  important 
assumptions  and  procedures  incorporated  in  the  Guelph  Analyzer. 

It  presents  the  income  tax  rate  schedule  used  in  the  old  and  new 
tax  structures,  the  extrapolation  procedure  and  the  method  used 
to  derive  dependency  characteristics  from  reported  levels  of  per¬ 
sons!  exemptions. 

B.2  income  tax  structures 


The  income  tax  schedules  employed  in  estimating  the  in¬ 
come  tax  burden  under  the  old  and  new  tax  structures  are  taken 
from:  Clarkson,  Gordon  and  Co.,  Tomorrows  Taxes:  An  Analysis  of 
1971  Tax  Reform  Legislation  as  Contained  in  Bill  C-259  (Toronto: 
Clarkson,  Gordon  and  Co.,  August  1971)  p.15.  This  schedule  is  re¬ 
produced  as  Appendix  Table  B.l.  The  1971  rate  schedule  does  not 
include  the  in-year  tax  reduction  introduced  by  the  federal  and 
Ontario  authorities.  The  analysis  of  the  new  tax  system  within 
a  1972  environment  does  not  include  the  increase  of  the  special 
old  age  exemption  from  $650  to  $1,000  as  introduced  in  the  federal 
budget  of  May  8,  1972. 


The  analysis  under  the  new  tax  act  takes  into  account 
the  major  modifications  to  the  tax  base,  the  changed  exemptions 
for  married,  single,  and  old  people.  It  also  takes  into  account 
the  new  dividend  tax  credit. 

The  analysis  under  the  new  tax  act  does  not  take  into 
account:  the  standard  employment  expense  allowance,  the  new  treat¬ 
ment  of  top  employee  benefits,  the  deductibility  of  U.I.C.  contri¬ 
butions,  the  taxation  of  U.I.C.  benefits,  the  attribution  to  em¬ 
ployees  of  employer  medicare  contributions,  sickness  and  accident 
benefits  from  private  plans,  the  inclusion  of  scholarship  and 
fellowship  income,  and  the  special  student  allowances,  as  well  as 
the  changed  definition  of  medical  expenses.  The  analysis  also 
excludes  effects  on  the  personal  deductions  due  to  the  increase  in 
the  limit  on  contributions  to  registered  pension  plans  and  deferred 
profit  sharing  plans  to  $2,500  from  $1,500. 

The  combined  effect  of  all  modifications  to  the  tax  base 
listed  above,  with  the  exception  of  the  capital  gains  tax  and  the 
increased  limits  on  contributions  to  registered  pension  plans,  is 
tested  for  the  aggregate  Ontario  situation  in  the  model  "PRQVCRED". 


1.  Brian  Hull,  PRQVCRED:  Manual  for  the  Analysis  of  the  Revenue 
and  Incidence  Effects  of  Property  and  Sales  Tax  Credits  in 
Ontario,  op.  eifc..  Appendix  B.2 


Table  B .  1 


1S71  AMD  1972  PROPOSED  RATES  OF  TAX 


APPuc 


IED  TO 


t  n  ' '  n  t?  * 

I)  h\  /*/t  U  taUn 


E  1MCC 


r/. 


1971  (note  1)  1972  (note  2) 


Tax  on 

Tax  rate 

Tax  on 

Tax  rate 

Taxable  income  bracket 

lower  limit 

on  excess 

lower  limit 

on  excess 

0 

$  500 

$  0 

4.00% 

$  0 

22.1% 

500 

1,000 

20 

20.00 

110 

23.4 

1,000 

1,750 

120 

22.00 

227 

24.7 

1,750 

2,000 

285 

22.24 

412 

24.7 

2,000 

•  3,000 

341 

24.27 

474 

26.0 

3,000 

4,000 

583 

25.29 

734 

27.3 

4,000 

5,000 

836 

28.33 

1,007 

27.3 

5,000 

6,000 

1,119 

28.33 

1,280 

29.9 

6,000 

7,000 

1,403 

26.39 

1,579 

29.9 

7,000 

8,000 

1,667 

26.39 

1,878 

32.5 

8,000 

9,000  ' 

1,931 

30.45 

2,203 

32.5 

9,000 

10,000 

2,236 

30.45 

2,528 

35.1 

10,000 

11,000 

2,541 

35.53 

2,879 

35.1 

11,000 

12,000 

2,896 

35.53 

3,230 

40.3  ' 

12,000 

14,000 

3,251 

40.60 

3,633 

40.3  ' 

14,000 

15,000 

4,063 

40.60 

4,439 

45.5 

15,000 

24,000 

4,469 

45.68 

4,894 

45.5 

24,000 

25,000 

8,580 

45.68 

8,989 

50.7- 

25,000 

39,000 

9,037 

50.75 

9,496 

50.7 

39,000 

40,000 

16,142 

50.75 

16,594 

55.9 

40,000 

60,000 

16,650 

55.83 

17,153 

55.9 

60,000 

90,000 

27,813 

60.90 

28,333 

61.1 

90,000 

125,000 

46,083 

65.98 

46,663 

61.1 

125,000 

225,000 

69,174 

71.05 

68,048 

61.1 

225,000 

400,000 

140,224 

76.13 

129,148 

61.1 

400,000 

up 

273,443 

81.20 

236,073 

61.1 

Notes  : 

1.  The  1971  tax  schedule  reflects  the  proposed  reduction  of  the  3  %  surtax  to  1  !/2%  (on  tax  in  excess  of  S200),  includes  the  4%  old  ago 
security  tax  and  the  2%  social  development  tax  (on  taxable  income  in  excess  of  $1,000)  and  the  revised  rates  proposed  to  be  ap¬ 
plicable  to  1971  taxable  incomes  of  less  than  $3,000.  It  also  includes  provincial  tax  at  28%  of  federal  basic  tax. 

2.  The  1972  tax  schedule  includes  provincial  tax  at  30%  of  federal  tax. 


B.3  EXTRAPOLATION  PROCEDURE 


The  extrapolation  of  the  analysis  from  the  1968  data 
base  is  undertaken  with  the  very  simplest  possible  procedure. 

The  number  of  taxfilers  between  1968  and  1972  increases  at  the 
level  projected  for  Ontario  in  the  GITAN  analysis.  The  number 
of  taxfilers  in  each  income,  dependency  class  cell  is  increased 
by  this  factor.  Between  1968  and  1972  the  number  of  taxfilers 
in  Ontario  is  estimated  to  increase  by  slightly  more  than  the 
national  average. 

Income  in  Ontario  is  assumed  to  change  between  1968 
and  1972  by  a  factor  which  adopts  the  forecast  performance  of  the 
Ontario  economy  in  1972.^  Taxable  income  in  Ontario  increases 
more  rapidly  than  income  itself  and  this  is  allowed  for  in  the 
analysis. 

1972/1968 

Increase  in  total  income  1.44717 

Increase  in  no.  of  taxfilers  1.18893 

The  extrapolation  procedure  for  the  economic  environment 
used  in  this  analysis  is  the  same  as  that  used  in  the  Provincial 
Analyser,  "PROVCRED”. 

The  mill  rate  applied  to  the  re-assessed  1968  data  is  the 
actual  rate  for  1968  taxes.  However,  it  should  be  noted  the  new 


1.  Canadian  and  Ontario  Economic  Forecast  (Toronto:  Department 
of  Treasury  and  Economics,  Fall,  1971). 


Table  3.2 


OLD  TAX  SYSTEM 

ESTIMATION  OF  FAMILY  STRUCTURE  FROM  TOTAL 
PERSONAL  EXEMPTION  CLAIMED 


Personal 

No.  of 

No.  of 

Married 

Exemption 

$300 

$550 

or 

Claimed 

Exemptions 

Exemptions 

Single 

$1,000 

0 

0 

1 

1,300 

1 

0 

1 

1,550 

0 

1 

1 

1,600 

2 

0 

1 

1,850 

1 

1 

1 

1,900 

3 

0 

1 

2,000 

0 

0 

2 

2,100 

0 

2 

1 

2,150 

2 

1 

1 

2,200 

4 

0 

1 

2,300 

1 

0 

2 

2,400 

1 

2 

1 

2,450 

3 

1 

1 

2,500 

5 

0 

1 

2,550 

0 

1 

2 

2 , 600 

2 

0 

2 

2,650 

0 

3 

1 

2,700 

2 

2 

1 

2,800 

6 

0 

1 

i. 

2,850 

1 

I 

2 

2,900 

3 

0 

2 

2,950 

1 

3 

i 

3,100 

0 

2 

2 

3,150 

2 

1 

2 

3,200 

4 

0 

2 

3,250 

2 

3 

1 

3  iA0Q 

1 

2 

2 

3,450 

3 

1 

2 

3,500 

5 

0 

2 

3,550 

3 

3 

1 

3,650 

0 

3 

2 

3,700 

2 

2 

2 

3,800 

6 

0 

2 

3,850 

4 

3 

1 

3,950 

1 

3 

2 

4,100 

7 

0 

2 

4,200 

4 

0 

2 

4,250 

2 

3 

2 

4,500 

1 

4 

2 

4,550 

3 

3 

2 

NOTE :  1  indicates  single;  2  indicates  married. 

Classification  assumed:  single  exemption  Is 
$1,000,  married  exemption  is  $2,000. 


assessment  roll  was  not  used  until  1969. 


Guelph  mill 

rates: 

1968 

27.70 

1969 

28.90 

1970 

32.97 

1971 

30.60 

Increase  in  the  Guelph  mill  rate,  1971  over  1968  is  11.02 
per  cent.  This  is  an  implicit  rate  of  change  of  2.65  per  cent  per 
annum.  The  analysis  assumes  the  1971  mill  rate  was  applicable  in 
1972. 


B.4  TAX FILER  DEPENDENCY  CHARACTERISTICS 


The  dependency  characteristics  of  each  taxfiler  are  ascer¬ 
tained  from  the  personal  exemption  level  claimed.  Each  level  of 

t 

personal  exemptions  is  a  combination  of  various  exemptions.  The  age 
of  the  taxfiler  is  ©n  each  return.  A  different  schedule  of  exemp¬ 
tions  applies  t©  those  under  and  over  70  years  of  age. 

The  exemption  level  for  those  under  70  years  of  age  is 
shown  in  Table  B.2.  Thus,  for  example,  if  the  level  of  personal 
exemptions  does  not  exceed  $1,000,  the  taxfiler  is  filing  as  single 
with  no  dependants.  Or  if  the  personal  exemption  is  greater  than 
$2,700  and  no  greater  than  $2,800,  then  the  taxfiler  is  filing  as 
single  with  6  children  under  16  years  of  age. 

The  exemption  level  for  those  70  years  of  age  and  over 


is  shown  in  Table  B.3. 


Table  B.3 


OLD  TAX  SYSTEM 

ESTIMATION  OF  FAMILY  STRUCTURE 
FOR  TAX FILERS  OVER  70  YEARS  OLD. 


$1,000 

1,  300 

1.500 
1,800 

1.850 
2,000 
2,050 
2, 150 

2.300 

2.500 
2,650 
2,800 
2,900 
3,000 
3,200 

3.300 
3,550 

3.850 

4.700 
5,000 

5.700 


No.  of 
$500 

Exemptions 


Married  No.  of 

or  $300 

Single  Exempt ions 


No.  of 
$550 

Exemptions 


0 

6 

i 

1 

o 

0 

1 

0 

0 

1 

1 

1 

1 

2 
1 
2 
2 
2 
2 
2 
2 


1 

1 
1 
1 
1 

2 
1 
1 
2 
2 
1 
2 
1 
2 
1 
2 
2 
2 
2 
2 
2 


0 

1 

0 

1 

1 

0 

0 

2 

1 

0 

2 

1 

1 

0 

2 

1 

0 

1 

2 

3 

3 


0 

0 

0 

0 

1 

0 

1 

0 

0 

0 

1 

0 

2 

0 

2 

0 

1 

1 

2 

2 

3 


Note;  in  married  or  single  column:  1  indicates  filing  as  single; 

2  indicates  filing  as  married.  Classification  is  derived  from  total 
personal  exemptions  claimed.  Under  old  tax  structure  single  exemp¬ 
tion  is  $1,000;  married  exemption  is  $2,000;  and  old  age  exemption 
for  individuals  70  years  old  and  older  is  $500. 


Appendix  C 


PROGEAM  STRUCTURE 


C.l  SUMMARY 


Each  run  of  the  program  is  preceded  by  preparation  of 
the  datafile  which  is  read  in  at  the  outset  and  initializes  the 
parameters.  The  datafile  contains  the  label  to  the  run,  the  ere- 
di£  system  selected,  the  date  of  the  run,  the  size  ©f  the  income 
and  property  class  arrays,  the  specification  of  the  credit  formula, 
the  levels  of  the  various  personal  exemptions,  the  income  classes 
and  the  average  and  marginal  rates  under  the  old  and  new  tax  struc¬ 
tures. 


The  extrapolation  switch  must  be  set  separately  in  sub¬ 
routines:  TAXANL  (XTAX  in  current  version);  ADJ  (XADJ  in  current 
version;  and  ACCIM  (XCUM  in  current  version).  The  switch,  IEXTRP, 
is  set  at  1  for  analysis  on  a  1968  basis  and  2  for  analysis  of  the 
extrapolation  to  1972. 

The  age  group  analyzed  in  the  run  is  established  with  a 
statement  in  XTAX  following  the  specification  of  IYOB  -  IYR.  Thus, 
for  example,  an  analysis  of  principal  income  earners  of  over  65 
years  of  age  requires  the  statement: 

IF  (IYOB.  LE.69  AND. IYOB. GE .04)  GO  TO  92 

The  income  characteristics  of  the  household  which  are  to 
be  analyzed  are  assigned  and  the  selection  of  the  appropriate  tax 


returns  for  analysis  is  made  in  TAXANL.  Normally  this  is  for  the 
tax  return  pertaining  to  the  household  with  the  largest  gross  in¬ 
come.  However,  it  is  also  possible  to  accumulate  all  incomes  per¬ 
taining  to  the  address  to  learn  the  incidence  of  property  tax  on 
family  income. 


C . 2  SUBROUTINE  OUTLINE 

MAIN:  now  XMAIN 

Main  program  controls  the  parameter  datafile  read  sub¬ 
routine,  the  tax  analysis  system,  and  the  table  printing 
operations . 

PARAM:  now  PARAM1 

Reads  parameter  datafile. 

TAXANL:  now  XTAX 

Calls  READ IN,  the  subroutine  which  reads  each  tax  record 

in  sequence.  TAXANL  then  assigns  internal  variable  names 

to  the  read  matrix.  Next,  the  appropriate  mill  rate  for 

the  record  is  selected. 

If  PCLAS  =  1  residential  mill  rate 

If  PCLAS  =  2  special  farm  mill  rate 

The  market  value  of  the  residential  property  is  the  sum 

of  the  value  of  the  land  and  the  improvements : 

BUILD  =  XLAND  +  BUILD 

The  value  of  the  property  tax  is  then  the  mill  rate  applied 
to  the  market  value  of  the  property: 


PROPT 


MR*  BUILD 


TAXANL  calls  subroutines  ADJ,  RATESH,  CREDIT  and  ACCUM. 


RDIN : 

ADJ: 


RSCH: 

CRED: 

ACCUM: 


It  also  selects  the  income  characteristics  of  the  tax 
return  to  be  analyzed. 

now  READTP 

This  subroutine  reads  each  tax  record  in  sequence  and 
attaches  variable  names. 

now  XADJ 

This  subroutine  estimates  family  structure  from  the  size 
of  personal  exemptions  claimed.  Personal  exemptions  un¬ 
der  the  new  tax  act  are  then  calculated  assuming  the  esti¬ 
mated  family  structure. 

For  modifications  of  the  program  up  to  August  1972 
no  allowance  was  made  for  the  increase  in  deductions  pos¬ 
sible  following  the  increase  in  the  limit  on  contributions 
to  registered  pension  plans  and  deferred  profit  sharing  plans. 

Does  rate  schedule  calculations. 

now  XCRED 

Does  tax  credit  calculations. 

now  XACUM 


Accumulates  data. 


C . 3  TAX  CREDIT  FORMULAE 


The  subroutine  CRED  is  programmed  for  three  alternative., 
property  tax  credit  formulae.  The  option  to  examine  a  sales  tax 
credit  formulae  is  included  with  one  of  these  three  forms.  The  de¬ 
sired  formula  for  the  property  tax  credit  is  specified  by  setting 
the  swithc  NC  in  the  datafile. 

NC  =  1 

TAX  CREDIT  =  BASIC  CREDIT  +  a  %  PROPERTY  TAX  -  b  %  TAXABLE  INCOME. 

If  property  tax  is  less  than  the  basic  credit,  property 
tax  equals  the  basic  credit. 

NC  =  2 

TAX  CREDIT  =  BASIC  CREDIT  -I-  a  %  PROPERTY  TAX. 

NC  =  3 

TAX  CREDIT  =  BASIC  CREDIT  -  a  %  TAXABLE  INCOME. 

If  NC  =  1  is  chosen  there  is  an  option  to  select  a  sales 
tax  credit  formula.  This  is  presently  selected  by  removing  a  "GO  TO" 
statement  at  the  appropriate  point  in  the  CRED  subroutine.  The  formula 
is  $10  per  member  of  the  family  less  1  per  cent  of  taxable  income. 
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August  10,  1971. 


C.4  DETAILED  DOCUMENTATION 
PROPOSED  SUBROUTINES 


B 

as 

ic  program  outlin 

e  : 

Main 

P 

r  o 

gram:  which  cont 

rol  s 

( 

a) 

Read  parameters 

s  ub 

ro 

ut  ine 

( 

b) 

Do  tax  analysis 

s  ub 

ro 

ut  ine 

( 

c  ) 

Table  printing 

op  er 

at 

ions 

T  ax 

an 

alysis  subroutine: 

whi 

ch 

c  ont  rols 

( 

a) 

Read  records 

( 

b) 

perform  operati 

on  s 

(i 

) r at  e  s  che  dul e 

( 

c  ) 

accumulate  data 

Program  names : 

MAIN  :  main  program 

PARAM  :  program  control  and  parameters 

TAXANL  :  tax  analysis  control 

RDIN  :  reads  records 

ADJ  :  basic  calculations 

RSCH  :  rate  schedule  calculations 

CRED  :  credit  calculations 

ACCUM  :  accumulates  data 

TAB  :  table  numbers,  1 

n  5 


i)  credit 


to  n  . 


PROPERTY  AND  INCOME  TAX  ANALYZER 


INPUT  RECORD  VARIABLES 

NAME  LABEL 


Identification  characteristics 

Assessment  number  L0C 

Birth  year  IY0B 

Sample  code  SAM 

Income  tax  characteristics 

Income : 

Prior  year  loss  XL0S 

Gross  main  source  income  XINC 

Foreign  income  XF0R 

Net  dividends  from  taxable  Cdn.  companies  XDIV 
Total  income  XT0T 

Deductions  and  exemptions: 

Deductions  to  total  income  DED 

Gross  medical  receipts  XMD 

Donations  D0N 

Personal  exemptions  EXEMP 

Taxable  income: 

Taxable  income  TAXI 

Federal  tax  FTAX 

Provincial  tax  PTAX 

Foreign  tax  paid  F0RT 

Federal  foreign  tax  credit  FFTX 

Provincial  foreign  tax  credit  PFTX 

Tax  deducted  at  source  STAX 

Tax  adjustments  TADJ 

Amount  paid  on  filing  PAID 

Computer  calculated  balance  CMBAL 

Identification  characteristics 

Sinno  SINN0 

Surname  SUR 

Firt  name  FNAME 

Street  address  ADD 

Property  tax  data 

Assessment  ASS 

Property  class  PKLAS 

Property  tax  payable  PR0PT 


VARIABLE  NAMES 


LABEL 

NAME 

INPT,  INPTl 

IPOUT 

Kl 

K2 

K3 

K4 

K5 

input  device  code 
output  device  code 
number  of  income  classes 
number  of  property  classes 

number  of  rate  schedule  classes  (old  tax  schedule) 
number  of  rate  schedules 

number  of  rate  schedule  classes  (new  tax  schedule) 

ARSH(i,  j ) 

BRSH(i, j) 

RSH(i, j ) 

average  rate  of  tax  in  class 
bottom  of  tax  class 
marginal  rate  of  class 

BCRED 

CREB 

ACRED 

XINCP 

CMAX 

AMAS 

basic  property  tax 
credit  as  %  of  property  tax 
credit  as  a  %  of  assessment 
credit  as  7,  of  income 
maximum  credit  available 
average  municipal  assessment  level  or  per 
capita  credit 

EXEMS(j) 

EXEM(j) 

EXA 

single  person  exemption 
married  exemption 
old  age  exemption 

CHI 

CH2 

ECHl 

ECH2 

children  under  16 
children  16  and  over 
exemption  children  under  16 
exemption  children  16  and  over 

EXE 

employment  expenses 

XK(Kl) 

TXK(Kl) 

gross  income  classes  (lower  limit  of  class) 
income  class  threshold  levels 

PKLAS (K2 ) 

TP(K2) 

property  classes  (lower  limit  of  class) 
property  class  threshold  levels 

SM(i,  j) 

summary  classes 

Augus  t  26 , 


1971. 


ADDED  VARIABLES 


PROGRAM  CONTROL 


N1 

record 

c  ount  e  r 

NN 

= 

numbe r 

of  records 

NO 

= 

ere  dit 

type 

INPT1 

- 

input 

device  code 

record 

file 

August  17 ,  1971 • 


ACCUMULATION  ARRAY 


Variables  to  be  accumulated  by  income  class,  where 
i  =  income  class,  j  =  variable  name. 


RECORD 

ARRAY 

LABEL 

LABEL 

NAME 

XT  0T 

SM 

(i,l) 

Total  income 

DED 

SM 

(i  ,2) 

Deductions  to  income 

XMD 

SM 

(1,3) 

Gross  medical  receipts 

D0N  ' 

SM 

(i,U) 

Don  at i ons 

EXEMP 

SM 

(1,5) 

Personal  exemptions 

SN 

SM 

(1,6) 

Est .  exemptions,  new 

S  0 

SM 

(1,7) 

Est .  exemptions,  old 

TAXI 

SM 

(1,8) 

Taxable  income 

0TAX 

SM 

(1,9) 

Est.  taxable,  old 

NTAX 

SM 

O 

1 — 1 

•H 

Est.  taxable,  new 

FTAX 

SM 

(1,11) 

Federal  tax 

P  TAX 

SM 

(1 ,12) 

Provincial  tax 

FF  TX 

SM 

(1  ,13) 

Fed.  for  tax  credit 

PF  TX 

SM 

(1,14) 

Prov.for  tax  credit 

TX0 

SM 

( 1  ,15) 

Est.  tax,  old 

TXN 

SM 

VO 

1 — 1 

•H 

Est.  tax,  new 

CD0 

SM 

( 1  ,17) 

Est.  prop,  credit,  old 

CDN 

SM 

(1,18) 

Est.  prop,  credit,  new 

PR0PT 

SM 

(1,19) 

Property  tax  payable 

ASS 

SM 

(1,20) 

Asses  sment 

SM 

(1,21) 

Numbers  of  filers 

CHI 

SM 

(1,22) 

Number  of  children  under  16 

CH2 

SM 

(1,23) 

Number  of  children  16  and  over 

If  MSTA 

as  ]_ 

SM 

(1,24) 

Singles 

If  MSTA 

®  2 

SM 

(1,25) 

Marrieds 

August  27,  1971. 


ADDED  VARIABLES 


ANALYSIS 


MSTA 

KCH 

DIFF 

TXY 

0TAX 

NTAX 

"v  TX0 

TXN 
CD0 
CDN 


Marital  status,  1  if  single,  2  if  married 

Excess  estimated  children  counter 

Record  exemption  less  $1000.00 

Taxable  income,  common  term 

Taxable  income,  estimated,  old  system 

Taxahle  income,  estimated,  new  system 

Tax  payable,  old  system 

Tax  payable,  new  system 

Property  tax  credit,  old  system 

Property  tax  credit ,  new  system 


August  27  >  1971 • 


ACCUMULATION  ARRAY 


Variables  to  be  accumulated  by  income  and  prop- 


erty  class,  Where 

IJ  =  income  class, 

IK  =  property  class. 

RECORD 

ARRAY 

LABEL 

LABEL 

NAME 

0TAX 

S  0TAX  ( IJ ,IK) 

Taxable  Income 

old  system 

NT  AX 

SNTAX ( I J , IK ) 

Taxable  Income 

new  system 

CD0 

S  CD0 ( IJ  ,  IK ) 

Property  credit,  old 
system 

CDN 

S  CDN ( IJ  ,  IK ) 

Property  credit,  new 
system 

SN1 

SN1 ( IJ  ,IK) 

Record  counter 

XT  0T 

ST0T ( I J , IK ) 

Total  income 

PR0PT 

SPR0P( IJ , IK ) 

Total  property  tax 

TX0 

STX0 ( IJ ,IK) 

Income  tax  payable, 
old  system 

TXN 

STXN ( IJ , IK ) 

Income  tax  payable, 
new  system. 

TABLES,  PROPERTY 


Sept.  28/71 


TAX  ANALYSIS 


TAB  1 

Number  of  tax  filers  in  each  property  class. 
Total  income  in  each  property  class. 

Average  gross  income  in  each  property  class. 
Average  property  tax  paid  in  each  class. 

TAB  2 


1. 

2. 

3. 

4. 


1.  Average  taxes  paid,  old  tax  structure. 

2.  Average  taxes  paid,  new  tax  structure. 

3.  Difference  in  taxes  (average). 

4.  Average  property  tax  credit,  old  structure. 

5.  Average  property  tax  credit,  new  structure. 


TAB  3 


1.  . 

2. 


3. 


Total  taxes,  old  system  (excl.  prop,  taxes) 
Total  taxes,  new  system  (excl.  prop,  taxes) 
Total  property  tax  credit  (old  system) 

Total  property  tax  credit  (new  system) 


4. 


TAB  4 


1.  Summary  tax  deduction  data. 

(a)  income  class 

(b)  total  income 

(c)  deductions 

(d)  medical  receipts 

(e)  donations 

2.  Summary  tax  exemption  data. 

(a)  personal  exemptions 

(b)  estimated  exemptions,  old  tax  structure 

(c)  estimated  exemptions,  new  tax  structure 

(d)  average  exemptions,  old  tax  structure 

3.  Summary  dependency  data. 

(a)  number  of  children  under  16 

(b)  number  of  children  over  16 

4.  Summary  tax  credit  data. 

(a)  total  credit,  old  tax  structure 

(b)  average  credit,  new  tax  structure 

(c)  total  credit,  new  tax  structure 

(d)  average  credit,  new  tax  structure 


/  V 


TAB  5 


1.  Summary  tax  data. 

(a)  Taxes  (excl.  credit),  old  structure 

(b)  Average  taxes,,  old  structure 

(c)  Taxes  (excl.  credit),  new  structure 

(d)  Average  taxes,  new  structure 


2.  Incidence  tables  of  credit. 


(a) 

Credit 

as 

%  gross 

income . 

(b) 

Credit 

as 

to  taxes 

(excl  credit) , 

old 

structure. 

(c) 

Credit 

as 

%  gross 

income,  new  structure. 

(d) 

Credit 

as 

%  taxes 

(excl.  credit), 

new 

structure. 

3.  Incidence  tables  of  taxes. 

(a)  Taxes  (excl.  credit)  as  %  gross  income,  old  structure 

(b)  Taxes,  with  credit  as  %  gross  income,  old  structure. 

(c)  Taxes  (excl.  credit)  as  %  gross  income,  new  structure 

(d)  Taxes,  with  credit  as  %  gross  income,  new  structure. 


4,  Not  used. 
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Appendix  D 


LINE  1: 

LINE  2 : 

LINE  3: 

LINE  4: 

LINE  5: 

LINE  6: 

LINE  7: 

LINE  8: 


PARAMETER  DATAFILE 


The  parameter  datafile  has  the  following  format: 

RNYR:  Base  year  1968  or  extrapolation  1972. 

RN :  Run  number . 

LOG:  Location  of  analysis. 

NC:  Credit  form. 


Dl:  Day  of  run. 

D2:  Year  of  run. 

DT:  Month  of  run. 


Kl:  No.  of  gross  income  classes. 

K2:  No.  of  property  tax  classes. 

K3:  No.  of  income  classes,  old  rate  schedule. 

K4:  No.  of  rate  schedules. 

K5:  No.  of  income  classes,  new  rate  schedule. 


BCRED:  Basic  credit 

CRED:  %  property  tax  added  to  basic. 

ACRED:  %  assessment  (not  used). 

XINCP:  %  taxable  income  subtracted  from  credit. 
CMAX:  Maximum  credit. 

AMAS.:  Average  assessment  (not  used)  . 


EXEMS  (1) 
EXEMS  (2) 
EXEM  (1) 
EXEM  (2) 


Single  exemption,  old  structure. 
Single  exemption,  new  structure. 
Married  exemption,  old  structure. 
Married  exemption,  new  structure. 


CHI:  (not  used). 

CH2:  (not  used). 

ECH1:  children  under  16  exemption. 

ECH2:  children  16  and  over  exemption. 

ARSH  (1,J):  Average  rate  schedule,  old  structure. 


LINE  9:  ARSH  (2 , J) ; 

LINE  10:  BRSH  (1,J): 

LINE  11:  BRSH  (2,J): 

LINE  12:  RSH  (1,J): 

LINE  13:  RSH  (2,J)  : 

LINE  14,15:  SC,  TXK: 

LINE  16,17:  PKLAS ,  TP: 


Average  rate  schedule,  new  structure. 
Taxable  income  threshold,  old  structure. 

Taxable  income  threshold,  new  structure. 

Marginal  tax  rate,  old  schedule. 

Marginal  tax  rate,  new  schedule. 

Income  classes  (both  identical,  one  now 
redundant) . 

Property  tax  classes  (both  identical,  one 
now  redundant) . 


Appendix  E 


PARAMETER  DATAFILE  LISTING 


The  following  is  a  sample  listing  of  the  parameter  datafile 


described  in  Appendix  D. 


TYPE  FOR20.DAT 
1968  203  G-'LPH 
1 

S7 ,1972, AUG 
24, 14, 19,2 ,1 3 

190. . 10.1 ,-05,250. ,0 
1000 ,1 500,2000,2850 
0,0,300,550 

0  134.55  150.0  278.57  351.50  586.60  842.30  1415.50  1951.10  2569.10 
3290.10  4526.1  9161.1  16886.1  28216.1  46756.1  70188.6  142288.6  277476.1 
0  I  10. 5. 22 7. 5, 474. 5, 734. 5, 1 280.5 .1878.5, 2528 . 5,3230.5, 4439.5 
8989 .5 . 1 6594 .5,28333.5 

0  909  1000  1643  2000  3000  4000  6000  8000  10000 
12000  15000  25000  40000  60000  90000  125000  225000  400000 
0 , 500 ,  1  000 , 2000 , 3000 , 5000 .  .7000 , 9000 , 1  1  000 , 1  4000 
24000 , 39000*60000 

.148  .17  .2  *2042  .2351  .2557  .2366  .2678  .3090  .3605 
.4.12  . 4635  ''.5 1 50  .5665  .6180  .6695  .7210  .7725  .8240 
-22.1  , .  234  , .  247  , .  260 , .  273 , .  299  , .  325  , .  35.1  , . 403  , .  455 

t, 507  , .  559  ..611  •  - 

0 , 2500 , 3000 . 3500 , 4000 , 4500 , 5000 , 5500 , 6000 , 6500 
7000 ,7500 , 8000 , 8500 , 9000 ,9 500 , 1 0000 , 1 2000 J  5000, 20000 
25000 , 50000  00000 , 200000 

0 , 2500 , 3000, 3500 ,4300 , 4500  ,5000 , 5500 , 6000 ,6500 
7000 ,7500, 8000,8503,9000 ,9500, 10000,12000,15000,20000 
25000 , 50000 ,  .1  00000  ,200000 
0,0,100,200,300,400,500,600,700,300 

900.. 1000.1100.1200 

0,0,100, 200 , 300 f 400 , 500 , 600 , 700 , 330 
900, 1000,1 100,1 200 


Appendix  F 


PROGRAM  LISTING 


XMAIN 


C  GUELPH  PROPERTY  TAX  ANALYZER 


C 

CL 

r> 


ABEL  MAIN 

COMMOH/PSCH/ ARSH(  3,30)  ,3RSH (  3, 30 )  ,RSH (  3 , 30 ) 

COMMON/CR ED/ BCR ED , CRED,  ACRED  .  XIMCP  ,  CM  AX  ,  ANAS 
CO  MM  0  N  /  EX  /  EX EMS ( 2 ) ,EXEM(2) 

COMMON/CH I LD/ ECH ! , ECH2 
CQMMON/P.POP/PKLAS  ( 25  5  , TP  (25) 

CO MM ON /K LAS/ XX ( 30) , TXK ( 30 ) 

CO MM ON /L  ABEL/LOC , IY05, SAM, SI NNO ,SUR , FN AME , ADD 
COMMON / 1 HC/XLOS , X I NC , XFOR ,XDI V, XTOT 
COMMON/D ED/DED ,XMD ,DON ,EXEM? 

COMMON/ P  DATA/ ASS , P  RO  PT 

CO  MM 0 N /  TD  A  T A /T A  X I ,  FTAX  ,  P  TAX  ,  FOR  T ,  FF  TX  ,  P  FTX  ,  S  TAX  ,  T  A  D  J ,  P  A I D 
$CM3AL 

COMMOil/X/K  1  ,  K2  ,  X3 ,  X4  ,K5 ,  N  1 

COMMON/SKL/S * ( 30 ,25)  , SOT AX ( 30,30 ) ,SNTAX ( 30 ,30 )  , 

$  SCDO (30,30) , SCDN( 30, 30) ,SU1 (30,30) , 

$  STOT(30,30) , SPROP (30,30) 

COMMON/CD/ CDO.CDN 
COMMON/TX/TXN , TXO , NT AX , OTAX 
COMMON/HC/NC,  XCri 
COMMON/ EXC/SN, SO 

COMMON/ST/ STXO ( 30 , 30 ) , STX  N ( 30 , 33 ) 

CO  MMON/D  A TE/D 1  ,D2 , D  T, RN 
CO  MMON/COUNT/  NR  I N , NR  I  NX , NB AD . I  END 
COMMON/ INPOUT/  JNPT1  , 1 NPT2 , 1  OUT!  , IOUT2 
COMMON/F AM/  MSTA,CH1 ,CH2 
CO  MMON / S UM/ S U  MS  (  25  ) 

CO MMON/DI VCD/ODI V ( 30 ) , SD I V ( 30 ) ,X  NO I V ( 3  0 ) 

COMMON/D STOP/  STOP (3,30) 

CO  MMON/R ECOPD/MATCH ( 20  80 ) 

COMMON/XKDS/  XCH1,XCH2 
COMMON/DCPED/  ODC,XNDC 
INTEGER  CH1,CH2 


r 


:all  par  am 


r> 

c 


call  taxa.nl 

CALL  TAB! 
CALL  TAB 2 
CALL  TAB 3 
CALL  TAB 4 
CALL  TAB 5 
CALL  TAB 6 


o  o  o  o  o  o 


P  AS  AM 


SUBROUTINE  PAR  AM 


LABEL  PAR AM 


TO  READ  PARAMETERS  ASSUMPTIONS  RATE  SCHEDULES 


COM MON/R SCH/  A!RSH  (3,30),  BRSH  (3,30),  RSH(  3 , 30  ) 
CO  MM0N/CRED/3CRED, CR ED, ACRED , X  I NCP .CM AX , A MAS 
CO  V'MON/E  X/EX  EMS  (  2 )  .  EX  EM  (  2 ) 


COMMON/Cn I LD/ECH 1 ,ECH2 
CO  M  MOM/ P  R  OP/ P  KL  A  S ( 2  5 ) , TP ( 2  5 ) 
COMMON/KL AS/XK ( 30 ) ,TXK(30) 
COMMON/ K/K 1 , K2 , K3 , K4 . K  5 , N 1 
CO  MMO i ; /NC/  NC  ,.<CH 
CO  MMON/D ATE/DI ,D2, DT,R H 
INTEGER  CH1,CH2 
I NPT=20 


IP0:JT=6 
99  FORM AT ( 5 1 ) 


100  FORMAT ( 6F) 

1 0 1  FORMAT ( 4F ) 


303  FOR MAT ( I „G, 4) 
104  FOR MAT ( 1 0F) 


105  FORMAT (I, I, A) 

READ( I NPT , 103)  RNYR , RN , LOC 
READ ( I NPT , 99 )  NC 
RE AD ( I NPT, 135)  D1,D2,DT 
RE AD(  I N'PT, 99  )  K1  ,  K2 ,K3 ,K4 ,K5 
READ( I NPT, 100)  3CRED , CRED . ACRED .X I NCP , CMAX ,AMAS 
READ ( I NPT, 101 )  EX EMS ( 1 ) ,EXEMS(2) ,EXEM( 1 ) ,EXEM<2) 
READ ( I NPT, 101)  CH 1 ,CH2 , ECU  1 , ECH2 
LL=K5 

DO  NO  1  =  1  ,K4 

IF ( I . EO . 1 )  K5=20 

READ ( I NPT,  1 0/)  ( ARSH ( I  ,J) , J  =  1 , 1 0) 

READ ( I NPT ,104)  ( ARSH ( I  , J ) , J  = 1 1  ,  K5 ) 


3 


para;/ 


CONTINUE 


ID 


'  I F  C  ’<5 .  N  E .  2d )  GO  T0 1  1  1 
RE AIK  I  MPT, 104)-  ( ARSH ( I ,  J )  ,J=21  ,K3) 
K5=LL 

1  I  1  CONTINUE 
110  CONTINUE 

DO  112  1=1 ,K4 
IF(I-HQ.l) <5=20 


1  13 
1  12 


1  15 
1  14 


70 


READUNPT,  104)  (3RSKCI  ,J),J=1  ,  13) 
READ (I MPT,  104)  ( 5RSH ( I , J ) , J= 1 1 ,K5) 

I F ( K  5 . ME . 20 ) GO  T0 1  1  3 
READUNPT,  104)  {  BRSH ( I  ,J  ) ,  J=2 1  ,K3) 
K5=LL 
CONTINUE 
CONTINUE 
DO  114  1  =  1  ,K4 
I F ( I . EQ -  1 ) <5=20 


READUNPT,  104)  (ESH(  I  .  J  )  ,  J=  1  .10) 
READUNPT,  104)  (R3H(  I ,  J)  ,J=1  1  .K5) 

IF CK5. NE. 20) GOTO  1  1  5 

READ( INPT J 04)  ( RSH( I , J) , J=2 1 ,K3 ) 

CONTINUE 

CONTINUE 


READUNPT,  104)  (  XK ( I )  ,  I  =  1  J  0  ) 
READUNPT,  104)  <XK(  I  >  ,  1  =  1  1  .20) 
READ(  INPT,  104)  ( XK  ( I )  ,1=21  ,'<1  ) 
READUNPT,  104)  (TXK ( 1 )  ,1  =  1  JO) 
READUNPT,  104)  (TXK(I  )  ,1  =  1  I  ,20) 
READUNPT,  104)  (TXK(I)  ,1  =  21  , K 1  ) 
READUNPT,  104)  (  PKLAS  ( I ) ,  1  =  1  ,10) 
READUNPT,  104)  (  PKLAS ( I  )  ,1  =  11  ,20) 
IF ( K2 . LE»  23) GOTO70 


READ( INPT, 104)  ( PKLASC I ) , I =2 1 ,K2) 
CONTINUE 


READ( INPT,  104)  (TP(I) ,1  =  1  ,10) 
READ (INPT,  104)  CTP(I) ,1  =  1 1,20) 
IF ( K2 . LE. 20 )GOTO80 


READUNPT  J  34)  (  TP  ( I )  ,  1=2  1  ,X2 ) 

30  CONTINUE 
119  FORMAT ( 1 H 1 ) 

120  FORMA T< 23X , 23HGUELPH  PROPERTY  TAX  ANALYZER) 

121  FORMATC 2 1 X , 36HDEPARTMENT  OF  TREASURY  AND  ECONOMICS) 

122  FORMAT ( 23X , 2 1 HGOVERNMENT  OF  ONTARIO) 

123  FORMATC 28X, 'TAX  AND  FISCAL  POLICY') 

124  FOR M AT ( 3 4 X , 6 HB R  AN CH ) 

125  FORMATC///) 

1 26  FORMATC  1  X , RELOCATION s ,2X , A5 , 1 3X  J 1  HR UN  NUMBER* ,F4.0) 

127  FORMATC 1 X,' RUM  DATE  * ' , A  5 , IX, 12,',', IX, 14, 

$  6X , 'RUN  YEAR  * ' , 5X , 1 4 ) 

1 28  FORMATC 1 X, 'RATE  SCHEDULE' ) 


4 


PAR AM  CONTINUED 


129  FORMA  T(  3X , 1 3 HOLD  RATE  SCHEDULE  * ) 

1 30  FORMATC 9X , 9H BOTTOM  OF ,7X ,7HA7ER AGE ,8X , SHMARGI NAL ) 

131  FORM AT( 9X , 5HCLASS , 1 1 X ,4HRATE , 1 1 X , 4HRATE) 

132  FORM AT( 3X , 1 8HNEW  RATE  SCHEDULE  : ) 

133  FORMAT( 3X,21 HPROPERTY  TAX  CLASSES:) 

134  FORMAT ( 9X , 9HTHRESH0LD) 

5  35  F0RMATC9X  ,8H0F  CLASS) 

136  FORMAT ( 3X , 1 5HINC0ME  CLASSES:) 

1  37  FORMA T(9X, FI  3.2, 5X ,F10.2,5X .F13.2) 

138  FORMAT ( 9X , F 1 3. 2 ) 

139  FORMATC/) 

140  FORMATC 3X, 32HPR0PERTY  TAX  CREDIT  ASSUMPTIONS:,//) 

141  FORMATC  9 X , 1 3HBASIC  CREDIT: , 1 2X ,F8. 3, /) 

542  FORMAT  ( 9X  , 25HCREDI T  AS  PROPERTY  TAX:,F8.3,/) 

143  FORMATC  9X  , 25HCREDI T  AS  %  ASSESSMENT  :,F8.3,/) 

144  FORM  AT ( 9X , 25HCR  EDIT  AS  %  INCOME  :,F8.3,/) 

145  FORMAT (9X,25HMAXImUM  CREDIT  AVAILABLE: ,F8. 3,/) 

146  F0RMATC9X ,25HAVERAGE  ASSESSMENT  :,F8.3.////) 

1  4  7  FOR  MAT  ( 9 X  ,  5H LOW E R ) 

C 

C  WRITE  PARAMETERS 

C 

WRITE C I  POUT, 120) 

WRITEC I  POUT, 121  ) 

WRITEC I POUT, 122) 

WRITEC IPOUT, 123) 

WRITEC  IPOUT,  124) 

WRITEC IPOUT, 125) 

WRITEC IPOUT, 126) ,LOC,RN 

WRITEC IPOUT, 127)  DT,D1 ,D2 ,RNYR 
WRITEC IPOUT, 125) 

WRITEC IPOUT, 128) 

WRITEC IPOUT, 139) 

WRITEC IPOUT, 129) 

WRITEC IPOUT, 139) 

WRITEC IPOUT, 130) 

WRITEC IPOUT, 131 ) 

1=1 

DO  1 50  J=1 ,K3 

150  WRITEC IPOUT,  137), BRSHCI ,J),ARSH(I ,J).RSH(I,J) 
IFCK4.LE. 1  )GOTO170 
WRITEC IPOUT,  119) 

WRITEC IPOUT, 125) 

WRITEC IPOUT, 1 32) 

WRITEC IPOUT, 1 39) 

WRITEC IPOUT, 1 30) 

WRITEC IPOUT,  3  31) 

1=2 

DO  1 60  J= 1 , K5 

160  WRITEC IPOUT, 137) , BRSHCI, J) ,ARSH(I,J) ,RSH(I ,J) 


o  o 


PAR  AM 


CONTINUED 


-  D  ~ 


c 


173  CONTINUE 

WR I TEC  I  POUT,  119) 

NR ITE( IPOUT, 125) 

NR  I  TEC IPOUT,  1  33) 

NR ITEC IPOUT, I  39) 

WRITE ( IPOUT ,147) 

NR ITEC IPOUT, 134) 

WRITEC IPOUT, 135) 

DO  180  I  =  l,:<2 

180  WRITEC IPOUT, 1 38) ,PKLAS( I ) 
WRITEC IPOUT,  119) 

WRITEC IPOUT,  125) 

WRITEC  IPOUT,  136) 

WRITEC IPOUT, 139) 

WRITEC IPOUT, 147) 

WRITEC  IPOUT,  1  34) 

WRITEC IPOUT, 1 35 ) 

WRITEC IPOUT, 139) 

DO  190  1=1 ,Kf 

1 90  WRITEC IPOUT,  1 38) ,TXKCI ) 
WRITEC IPOUT, 119) 


WRITEC IPOUT, 125) 

WRITEC IPOUT, 140) 

WRITEC IPOUT, 145 ) ,3CRED 
WRITEC IPOUT, 142) ,CRED 
WRITEC IPOUT, 143) , ACRED 
WRITEC IPOUT, 144) ,XINCP 
WRITEC IPOUT, 145) , CM AX 
WRITEC IPOUT, 146) , AM AS 
WRITEC IPOUT, 125) 

WRITEC IPOUT,  119) 


RETURN 

END 


READT? 


SUBROUTINE  READIN 

C  TO  READ  IN  RECORDS  FROM  GUELPH  MATCH  TA?=S. 
C  READS  IN  13  RECORDS  AT  A  TIME. 


o  o  o 


6 


EAD  TP 


CONTINUED 


WRITTEN  BY  HARPY  N  EH  TON .  OCTOBER  1071. 

COP  PON/CO  UNT/NR I  n ,  NR  I  NX  .  NBAD  ,  I  END 
CO MMON /R ECORD/ M  A TCH (  20  80  ) 

CO M AON/ 1  NPOUT/  I NPT1  , 1 NPT2 , 1 0UT1  . 1 0UT2 
DATA  ISN/0/ 

DATA  NRIN/0/ .NRINX/O/.NBAD/0/, IEND/-V 
IF( ISW.EQ. 1 )  GO  TO  100 
CALL  NTRAN ( I NPT1 ,12) 

CALL  NTRAN (  INPT1  ,14) 

TYPE  1  50 

F()RMAT(/,2X  ,'TYPE  NO.  OF  RECORDS  TO  BE  PROCESSED-'  .$ ) 
ACCEPT  1 51 ,MAXREC 
FORM AT  (1G) 

ISW=  1 

NR  1 N=NR I N+ 1 0 

I F ( MOD ( NR IN, 1 0DD ) . EQ .  Q )  TYPE  151, NR  I N 
C  READ  INPUT  RECORD. 

200  CALL  NTRAN ( INPT1 ,2 ,2080 , MATCH, 1ST) 

201  IE (I  ST. HQ. -1 )  GO  TO  201 
IF ( IST.EQ.-2 )  GO  TO  500 
IF( IST.LE.-30  GO  TO  400 

I F ( NR  I N. GT.MAXREC. AND . MAXREC . NE . O )  GO  TO  500 
RETURN 

C  INPUT  ERROR-RECORD  UNREADABLE.  TRY  TO  READ  ANOTHER  .RECORD. 
400  NBAD=N5 AD+ 1 0 

TYPE! 49 . 1ST, NR I N .NBAD 

149  F0RMAK2X  .'ERROR- IST='  ,  1 5  ,6X ,  'NR I  N='  .  16 ,6X  ,  'NBAD=' 

&  , 16 ,6X, 'UNIT  RE-ENABLED' ) 

CALL  NTRAN (INPT1 .22) 

GO  TO  200 

C  EN D-Or-TAPE.  RETURN  TO  CALLING  PROGRAM. 

D00  NR  I N =NR I N— 1 0 
600  I END= 1 


1  50 
1  5  1 
100 


RETURN 
fcN  D 

SUBROUTINE  ATTACH(I) 

THIS  SUBROUTINE  ATTACHES  PROGRAM  VARIABLE  NAMES  TO  THE  APPROPRIATE 

ELEMENTS  OF  THE  INPUT  ARRAY. 

WRITTEN  BY  HARRY  NEWTON.  OCTOBER  1971. 

CO  }■  MON  /R  EGOR  D/M  A  TCH  (  2030 ) 

COMMON/DSTOR/  STOP (3.30) 

COMMON/COUNT/NR  I  r, ,  NR  I  NX  ,  NBAD ,  I  END 
DATA  NNEG/0/ 

IFCI.GT.  10.OR.I.LT.1  )  GO  TO  130 
STOP (1.7) = MATCH ( 203* (1-1 ) +7) 

S  TOR  (1,8)  = .LATCH  (  208*  (  I  - 1  )  +8 ) 

S  TOR  (  1  , 9 )  =  .LATCH  (  20 8*  (  I  - 1)  +9 ) 

STOP (1 , 20 ) =MATCH ( 208* (1-1 ) + 1 8 ) 

STOP (1 .21) =MA TCH ( 208* (1-1 ) +25 ) 

STOP (1,22) =MA TCH ( 208* ( I - 1 ) +26 ) 


7 


HE A DTP 


TI HUED 


STOP (1,23) =MATCH ( 208* ( I- 1 ) +27 ) 

STOP (1  ,10) =MATCh ( 208* ( I -  1 )  +  1 2  3 ) 

S  TOP (1,11)= M A  TCH ( 2  06  * ( I - 1  )  +  1 3 1  ) 

STOP ( 1 , 1 )=MATCH(2'08*( 1-1 )+132) 

STOP  (  1  , 1  2 )  =i7iATCH  ( 208  *  ( I  - 1  )  +  l  33) 

STOP (1 ,13) =M ATCH ( 208* ( I- 1 ) + 1 34 ) 

STOP ( l , 2 ) =MA  TCH ( 208* ( I - 1  )  +  1 35) 

I F ( STOP (1,2) . LT.  O. )  NNEG=NNEG+ 1 
STOP ( 1 , 3 )= MATCH (208* ( I- 1 ) + 1 37 ) 

STOP (1,4) = MATCH <  20  3* ( I - 1 )  + 1 3  8 ) 

STOP (1,5) =M A fCH ( 208* ( I - 1  ) *  1 4  3 ) 

STOP  (1,6)  =.4 A  TCH  (  23  8*  (  I  - 1  )  +  1  44 ) 

STOP ( 1  , 14)=M^TCH<206*( 1-1  )  +  1 46) 

STOR (1,15) = MATCH ( 208* (1-1  ) *  1 47 ) 

STOP (1,16 )= MATCH ( 238* ( I- 1 ) + 1 40 ) 

STOR (1,17  5  = MATCH ( 208* ( I- 1)  + 1 5 1  ) 

STOR (1  ,13) = MATCH ( 2  08* ( I - 1 )  + 1 52 ) 

STOR (1  ,19) =M ATCH ( 206* ( I - 1 ) + 1 53 ) 

STOR (1,2*) -MATCH ( 2 08* ( I- 1 ) + 1 0 ) 

1 0 1  FORMAT ( 2X , ' RECS . READ' , 1 6 , 3X , ' I ' , I  6 ) 

RETURN 

1 00  WR I  TEC  6 , 200)  I  , NR  I N 

200  FORMAT ( 33H3ERP0R  IN  SUBROUTINE  ATTACH  —  I=,I6,15X,5 
RETURN 
END 

- « END 


HREC= 


16) 


XT  AX  A 


SUBROUTINE  TAXANL 

C 

CLABEL  TAXANL 
C 

CO MMO N/L A3 EL/LOC , I YOB , SAM ,SI NNO, SUR .FNAME,  ADD 
CO  MMO  N / 1 NC/ XLO  5 , X I NC , X  FOR , XD I V , XTOT 
CO MMON/DED/ DDD , X  MD , DON , EX EM? 

CO  MM, ON/P  DATA/ ASS , P  ROPT 

CO M.MON/ TDA  FA/TAX I ,  F TAX  , PT  AX ,  FOR  T ,  FFTX  ,  PF  TX  ,  S TA X  ,  TADJ  , 
$  CM3L 

CO  MMO,  j/NC/ NC , XCH 
COMMON/K/K 1 ,K2,K3, K4 ,K5 ,N1 
CO  MMON/PRO ?/ P  KL A S ( 25 ) , TP ( 2  5 ) 

CO MMON/KLA  5/X  K ( 30 ) , TXK ( 30 ) 


) 


-  3  - 


'AX  A  CONTINUED 


$ 


COMMON/SKL/  SM  (30,25),  SOT  AX  (  30  ,3  /  )  ,  SsJTAX  (  30 , 3  3  )  , 

SCDO (  30 ,  30)  ,SCDN(  30 , 30  )  ,SN1  (  30 , 30  )  .SICK  30, 30  )  ,  SP  POP  (  3"^ 
CO MMOM/ ST/  STXO  (  30 , 30 )  ,  STX  N  (30,3  /• ) 

COPMON/COUNT/  NP  I N  , N 9. 1  NX  ,  MB  AD  ,  I  END 
COMMON/ INPOUT/  INPT1 , I MPT2 , I0UT1 , I0UT2 


30  ) 


CO MiXON/F A,4/  MSTA  ,  CH 1  ,  CH2 
COMMON/CHI LD/ECH  1  ,  ECH2 


CO  MMON/S  UM/3U MS  (  25  ) 


COMMON/DI  VCD/ODI  V  (  30  )  ,  SDI  X  ( 30  )  ,  XNDI V( 30) 
COMMON/ DST OP /  STOP ( 3 , 30) 

CO Mj/.ON/RECOPD/MATCH  (  2080  ) 


:o 


\  t  \  ( f 
i ' ,  *  1 A 


)N/XKD5/  XCH 1 , XCH2 


COMMON/DCR ED/  ODC , XNDC 
INTEGER  CH 1 , CH2 
PEAL  MR 


DATA  STOR/ 90*0/ 

DATA  I NPT1 / 1 2/, I NPT2/0/, I0UT1 /Z/ , I0UT2/6/ 
I D I =24 


IEXTRP=i 

C 

r* 

B  =  B+ 1 

20  1=0 

CALL  RE AD IN 

IF ( I END. EO . 1 )  GO  TO  5000 

4  1=1+1 

I F  ( STOP  (  2 , 7  )  .  ME .  0 )  GO  TO  5 
I F ( STOR ( 2 , 7 ) . NE.0 ) G0T05 
IF (STOP (2,9) .EC. 9) GO  TO  5000 
C 

IF  (I  .GT.  10)30  TO  20 
CALL  ATTACH ( I ) 

IF ( STOP ( 1  ,9) .EC. 9)  GO  TO  5000 
C 
C 

DO  25  IJ=1  .ID! 

STOR ( 2 , I J ) =STOR ( 1 , IJ) 

STOR (1 , IJ)=0 
25  CONTINUE 

7  CONTINUE 


1  =  1  +  1 

5  CONTINUE 

IF  (I .GT.  1 0 )3OTO20 
I F ( 5 TOP ( 2 , 9 ) . EG . 9 )  GO  TO  5000 


XI  AX  A 


CONTINUED 


C 

* 


32 


8 

p 

r 

v> 

n 


33 


C 

9 


37 

C 

C 

10 


CALL  ATTACH(J) 


CO  6  J=7 , 9 

IF  (STOR(  1  ,  J)  .i'lE.  S TOR  ( 2  ,  J  ) )  GOTO  3 
CONTINUE 

IF ( 5T0R ( 1  , 24 ) . N E . 5 TOR (2,24))  GO  TO 

IF  (  STOR  (2,2)  .  LE.  STOR  (1  ,  2 ) )  GO  TO *3 

DO  32  I J=1 , ID1 

STOR ( 1 , I J) =0 

CONTINUE 

GO  TO  7 

CONTINUE 


DO  33-  I  K=  1  , 1 D 1 
STOR  (  3  ,  IK)  =STOR  (  1  ,  IK) 
STOR  (  1  ,  i:<)  =  STOR(2,  IK) 
STOR  (2  ,  IfO=3TOR(3,  IK) 
STOP (3, IK) =3 
CONTINUE 
GO  TO  10 


CONTINUE 
DO  37  IJ=1  f ID1 
STOR (2, I J)=STQR( 1 , I J ) 
STOR ( 1 ,IJ)=0 
CONTINUE  , 

GO  TO  7 


CONTINUE 
XI NC=STOR ( 1,1) 
XTOT=ST()R  (  1  ,.2) 
DED=ST()R  ( 1  ,3) 
XMD=ST0R(  1  ,4) 
D0N=ST()R  ( 1  ,5) 
EXEMPTS TOR ( 1  ,6) 
IYOB=STOR ( 1 ,10) 
XL05=ST0R( 1,11) 
SrOR-STOR ( 1,12) 
XO I  V=ST()R  (  1,13) 
TAXI =STOR  (  1,14) 
F TAX = STOR ( 1,15) 
PTAX =STOR ( 1,16) 
FFOR=STOR( 1,17) 
FrTX=3T0R  (  1,18) 
PFTX=STOR(  1,19) 


u  c_>  o  o  ^  n  —  r-  (\j  co  o  o  o 


A  i 


AX  A 


lONTINUED 


PCLA3=STOR  (  1  ,2,3) 
XLAND-ST02 (1 ,21 ) 
BUILD=ST()E  (  1.22) 
B  jT?C=STOR  (1,23) 


IF( I  YOB.  ECS.  0)  30  TO  92 
I  YR=MQD  ( I  YOB  ,  1  30) 

IrdYrf.GT.  3.  AND.  IYR.LT.  13)  I  YR=.MOD(  IY03, 1  000) 
IF (I YR.GT. 100) IYR=M()D( IYR, 133) 


IY03= I YR 

IF ( I YOB.LE .69, AND. I YOB. GE. 04 )  GO  TO  92 
IF ( NRI M. LE. 33 )  TYPS3 , IY03 

2  FORMAT (3X,4( FI  5.4)) 

FORMAT ( 3X , 'YEAR  OF  3IRTH',I6) 

1  FORMAT ( 3X , 'DIVIDENDS' ,F 13.2) 

3  CONTINUE 

FORMAT (//, 5 X ,'X3X') 

DO  34  IJ=1 , ID1 

4  STOR ( 1 , I J ) =3 
CALL  ADJ 


CALL  RATESH 
IF (PCLAS.LT. 1 )  TYPE2 
JAR  =  .0277 

IF (PCLAS.E3. 1 )  MR= .0277 
IF  (PCLAS.EQ.  2 )  MR-. $2470 
IF (PCLAS.GT.2)  MR=.0277 
IF (BUSPC. NE.0 )RUS=BUS+ 1 
1  FORMAT (  3X ,  '  TI NC' .FI  0.0, 'ASS' , FI  2.0) 

C 

BUI LD=XLAND+BU 1 LD 
IF ( IEXTRP.NE.2)  GO  TO  143 
BUILD  =BUI LD* 1 .1102 
BuILD=BUILD*1 .13893 
1^3  '  CONTINUE 

P  R  0  P  T= MR *3  U I LD 
IF  (N’R I  N.GT.  133)  GO  TO  79 
79  CONTINUE 

CALL  CR EDI f 
131  FOR MAT ( IX ,2110) 

CALL  ACCOM 
92  CONTINUE 

GO  TO  4 

5C00  CONTINUE 

DO  53  20  J=1,.<2 


X  iAX  A 


-  i  i 


CONTINUED 


DO  50 ID  I  =  1  ,  K 1 

SO TAX (  K  1  -H  , J )— SOT* X ( K1 +1  ,J)+30TAX(I ,J) 
SNTAX  ( i<  1  + 1  ,  J )  =5NTA'X  ( K  1  + 1  .  J  )  +SNTAX  ( I  ,  J  ) 
SC DO ( K 1  + 1 ,  J )  =SCDO ( K  1  +  1 ,  J )  +SCDO (I  ,  J ) 
SCDN(K1+1 , J)  =SCDN(K1+1 , J )  +5CDN(I,J) 

Sw  1  (  <!  +  1  ,J)  =SN1  C<1  +  1  ,J)  +SN1(I,J) 

sroTC<i  +  i ,  j)=sroT(Ki  +  i  .j )  +stot(  i  ,j) 

SPROP ( K1 + 1 , J ) =5PR0P (  K 1  +  1 . J)  +SPROPCI  ,  J  ) 
STX0C<1  +1  ,  J)=  STXO  ( K  1  + 1  ,  J  )  +  STXO  C I  ,  J  ) 
STXN ( K 1  +  i , J ) =  S  TX N ( Kl  + 1 , J )  +STXN ( I , J ) 
5010  CONTINUE 
5020  CONTINUE 

DO  640  J=1 .23 
DO  625  1  =  1  ,.<1 
S  JMS  ( J )  =SM  ( I  ,  J )  -r SU  MS  ( J ) 

625  CONTINUE 

640  CONTINUE 


XADJ 


C 

C 

n 

c 


SUBROUTINE  ADJ 


TO  ESTIMATE  DEPENDENCY  CHARACTERISTICS 


COMMON/L A3EL/L0C , I YOB , SAM , S I NNO , SUR , FN AM E. ADD 
COMMON/DED/DED, XMJ  .DON, EXEMP 
COMMON/ 1 NC/XLOS , X I NC , XFOR , X  D I V , XTOT 
CO  MMON/PDATA/A  SS , P  POPT 

COMMON/TDAT  A/TAX  1 , FTAX.PTAX , FORT, FFTX . PFTX .STAX ,TAOJ 
SCYiBAL 


CO MMO N/ TX/  TX N  ,TX 0 ,  N TA X  , OTA X 
CO  MMON/NC/ NC , KCH 
CO  MMON/EXC/SN , SO 
CO MM ON/CD/ CDO.CDN 
CO  ,VMO N  / K/ .<  1  ,  K2 ,  K 3 ,  K4  ,  K  5  ,  N 1 
CO P.MON/KLAS/XK  (  30 )  ,  TXK(  30  ) 
COMMON/ EX/ EX EPS ( 2) , EX EMC  2) 
COMMON/CHI LD/ECH ! . ECH2 


PAID. 


on  oooooooooo 


) 


-12- 


X  ADJ  CONTI NUED 


C0MM0N/PR0P/P'<LAS(25  )  ,  TP(  25) 

COMMON/FAM/  M3TA ,CH1  , CH2 
CO MMON/COUNT/  NR  I X  .  N P I  NX  ,  M3  AD .  I  END 
CO'M.ViON/X  KDS/  XCH  1  ,  XCH2 
COMMON/ DCH ED/  ODC , XNDC 
I A  TEG  ER  XM  5  TA  ,  X  .VIST  0 ,  AGE  ,  CH 1  ,  CH  2 
DATA  S W 1/0/ 

DIMENSION  XMSTO(  21  ) 

D I  MEN S I  ON  X ODED ( 2  1  ) ,  KD 1  (  2 1  ) , KD2  (21  )  ,  AG  E ( 2 1  ) 

DIMENSION  XDED(40 ) ,MCH1 ( 40 ) , MCH2 ( *0 ) ,XMSTA(4D) 

DATA  ERM/5 ./ 

DATA  XDED/ 1003. . 1 300. , 1 550 - , 1 600. , 1850. . 1900. , 

$  2000. ,2100. ,2150. ,2200. ,2300. ,2400. ,2450. , 

$2500. .2550. ,2600. ,2650. ,2700. ,2800. .2850. ,2900. , 

$  2950. ,3100.  ,3150. ,3200. ,3250. ,3403. , 

$  3450. ,3500.  .3550. ,3650.  ,3700. .3800. .3350. ,3950.  ,4  1  DO. , 

$  4200. ,4250.  ,4500. ,4  550./ 

DATA  MCH1/0, 1,0, 2, 1,3, 0,0, 2, 4, 1,1, 3. 5, 0,2, 0,2, 6, 

$  1  ,3,1  ,0,2, 4, 2,1  ,3, 5, 3, 0,2, 6, 4,1  ,7, 4, 2,1  .3/ 

DATA  MCH2/0 ,0,1  ,0,  1 ,0,0,2, 1 ,0,0, 2,1  ,0,1 ,0,3, 2, 0,1  ,0,3,2,  1  ,0,3,2, 
$  1  ,0.3, 3, 2, 0,3, 3, 0,0, 3, 4. 3/ 

DATA  XMSTA/1  ,1,1, 1,1, 1,2, 1,1, 1,2, 1,1, 1,2, 2, 1,1,1, 

$  2,2,1  ,2, 2, 2, 1,2, 2, 2, 1,2, 2, 2, 1  ,2, 2, 2, 2, 2, 2/ 

DATA  XODED/100O. , 1 300. .1500. , 1890. .1850. ,2000. .2050. ,2150. . 

$  2300. ,2500. ,  2650. ,2800. ,2900. .3003. ,3200. ,3300. ,3550. .3853. , 

$  4700. ,5000. ,5700./ 

DATA  !<D1  /0,  1  ,0,1  ,1  .0,0,2, 1  ,0,2, 1  ,  1  ,0,2, 1  ,0.1 ,2,3,3/ 

DATA  KD2  /0, 0 , 0 , 0 , 1 ,0 , 1 , 9 , 0 , 0 . I , 0 , 2 , 0 , 2 ,0 . 1 , 1 , 2 , 2 , 3/ 

DATA  AGE  /0,0, I ,  1 ,0,0, 1  ,3,0, 1  , 1  , 1  . 1  .2, 1 , 2 . 2, 2 , 2 , 2 , 2/ 

DATA  X.MSTO  /  1  ,  1  ,  1  ,  1  , 1  , 2 , 1  ,  1 , 2 , 2 , 1  , 2 ,  1 , 2,  1  ,  2 , 2 . 2 , 2 , 2 , 2/ 


ANALYSIS  OF  THE  DIVIDEND  TAX  CREDIT  UNDER  THE  OLD  AND 
NEW  SYSTEMS.  JAN.  17,1972 


OOC=XDI V*. 2 
BAD=XDIV*. 33333 


X I  NC=X.T0T+3  AD 
XNDC =8 AD* . 3 
XNDC=X  NDC+XNDC* . 33 


X  li  TR  =  1 


XADJ  CONTINUED 


C 

c 

I EXTRP= 1 

C  IEXIRP  =  THE  EXTRAPOLATION  SWITCH 
C  IEXTRP  =2  EXTRAPOLATION  IS  TO  1972 

C  IF  IEXTRP  =3  IT  IS  TO  197  3 

IF ( IEXTRP. NE.2)  GO  TO  120 
X  NTR  = 1 . 1  SB 9 3 
XTOT=XTOT* 1 . ^47 1 7 
DON=DON*  1  .  1  8893 
XMD=XMD*1 ,18893 
DED=DED*1 . 1 8893 
X I NC=X I NC* 1 ,44717 
XNDC=XNDC* 1 .44717 
ODC=ODC* 1 .447 i 7 
1 20  CONTINUE 

IF! I  YOB. GT.  98. OP. I  YOB. LE. 71 )GOTO4S0 
DO  410  U=1 ,2! 

IF  (EXE.MP  .GT.  (  XODED  (21)  +ERM  ) )  GO  TO  420 
IF  (EXEViP.LT.  (XODED(J)+ERM)  )  GO  TO  419 
410  CONTINUE 

419  CONTINUE 

469  FORMAT!  3X  , '  "U'*-OLD  MAX'  ,15) 

470  FORMAT! 3X . ' “ J" ',15) 

47  1  FORMAT!  3X,' YOUNG  J',I5) 

C 

C 

XCH 1 =KD1 (J ) 

XCH2=KD2 ( J ) 

MSTA=XMSTO( J) 

ADED=AGE( J ) 

ADED=ADED*XNT3 
GO  TO  425 
C 
C 

c 

420  XCH 1=4 

XCH2-4 

MSTA-2 

ADED=2 

C 

425  CONTINUE 

C 

IF! IEXTRP. NE.2)  GO  TO  125 
XCH! =XCH 1 *XNTR 
XCH2=XCH2*XNTR 
125  CONTINUE 
C 

C  OLD  TAX  ACT 

SO=XCH 1 *ECH 1 +XCH2*ECH2 


XADJ  CONTINUED 


I F ( MSTA .  EG) .  2 )  GO  TO  430 
SO=SO+XNTR*EXEMS(  I  ) 

GO  TO  431 

43G  SO=SO+XNTR*EXEM(  1  ) 

431  CONTINUE 

SO=5O+ADED*500 . 

C 

n 

C  NEW  BILL 

C 

C 

SN=XCH 1 *ECH 1 +XCH2*ECH2 
IF ( MSTA . EO . 2 )  GO  TO  435 
SN=SN+XNTR*EXEMS  ( 2 ) 

GO  TO  436 

435  CONTINUE 

SN=SN+XNTR*EXEM(  2) 

436  CONTINUE 
SNas5N’+ADED*650 . 

GO  TO  493 

430  CONTINUE 

r 

334  CONTINUE 

DO  340  J=1  ,40 

IF(EXEMP.GT. (XDED(40)+ERM) )G0  TO  346 
IF (EXEMP.LT. (XDED( J)+ERM)>  GO  TO  345 
340  CONTINUE 

C 
C 

345  XCH1*MCH1(J) 

XCH2=MCH2( J) 

MSTA=XMSTA( J ) 

GO  TO  347 

346  XCH I = ( EXEMP-2030 . ) 7850 . 

XCH2=XCH 1 
TYPE469 , J 
MSTA =2 

347  CONTINUE 

IF ( IEXTRP.NE.2 )  GO  TO  126 
XCH 1 =XCH 1 *XNTR 
XCH2=XCH2*XNTR 
126  CONTINUE 


X  AD  J 


TINNED 


r 

V-* 

SO  =X  CH 1 *ECH 1 + X CH 2*  ECH  2 
I  F  ( !.\  ST  A .  c3 . 2 )  GO  TO  3  55 
SO=XNTR*EXEMS<  1  )+S() 

GO  TO  357 

355  SO=XNT3*EXEtf( 1  )+S0 
357  CONTINUE 
C 
C 
c 

C  NEW  B I LL 

C 

c 

r 

SN'-XCH  1  *ECH1  +XCri2*ECH2 
I F ( M3 TA . E3 . 2 ) GO  TO  365 
SN=X  NT 3* EX  EM'S  (  2 )  +SN 
GO  TO  367 

365  Si\'=XNTR*EXEM(  2)+5N 

I F  ( I  Y03.LT .  4 .  AND .  I  Y03.GT.  98 )  SN=XNTR* 65 0*MSTA+SN 
367  CONTINUE 
49G  CONTINUE 

r* 

v-/ 

c 

OTAX=XTOT- SO 
OTAX  =OTAX~DOi\’-XMD~DED 
IF  (OTAX.LE.O)  OTA'X-0 
C 

c 

N FAX=X I NC-SN 
N  TAX = NT  AX  -  DON  -X  MO-  DED 
IF  (NTAX.LE.0 )  NTAX=0 

r* 

c 

I F ( NR  I N . GT . 1 00 )  GO  TO  200 
200  CONTINUE 

5  FORMAT (3X, 'KIDS' ,F10.2) 

RETURN 

END 


o  o  o  o  o 
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XCRED 


SUBROUTINE  CREDIT 


CQMMON/CRED/BCRED ,CRED , ACRED , X I NCP  t CM AX .AM AS 

COMMON/NC/NC ,KCH 

COMMON/CD/CDO  .CDN 

CO  MMON/TX/ TXN.TXO , NT AX . OTAX 

COMMON/FAM/  MSTA.CH1.CH2 

CO MMQN/ COUNT/  NR  I N ,NR I  NX ,  NBAD  ,  I  END 

COMMON/PDATA/ASS .PROPT 

COMMON/XKDS/  XCH1 ,XCH2 

INTEGER  CHI ,CH2 
IPOUT=6 


501  CONTINUE 
C 

520  FORMAT ( 3X » 27HPROPERTY  CREDIT  NOT  DEFINED) 

521  FORMAT ( 3 X » 30HANALYSI S  NOW  ASSUMES  OPTION  #2) 

C 

IF (NC.NE. 1 )GOTO510 
B3=0 
XZ=0 

XZ=3CRED 

IF (PROPT.LE.3CRED)  XZ=PROPT 
GO  TO  600 

C  IF  'GO  TO  600'  ABOVE  SALES  TAX  CREDIT  SURPRSSED 

I F ( M ST A . EQ . 2 )  83  =  10. *2. 

IF (MSTA.NE.2)  33=10. *1. 
BB=33+l0.*XCHt+10.*XCH2 
XY 1 =BB-X INCP*OTAX 
X Y  2=8B-X I NCP*N  TAX 
IFCXYl «LE. 3) XY 1 =0 
IF (XY2.LE.3) XY2=0 
600  CONTINUE 

CDO=XZ+CRED*PROPT-XINCP*OTAX 
CDN=XZ+CRED*PROPT-XINCP*NTAX 
IF (CDO .LE. AMAS)CDO=AMAS 
IF ( CDN . LE. AMAS )CDN=AMAS 
IF (CDN.GT.CMAX )  CDN=CMAX 
IF C CDO. GT.  CM AX)  CDO=CMAX 
CDO=CDO+XY 1 
CDN=CDN+XY2 
GOTO 550 

510  IF (NC.NE. 2 )G0T05 1 1 
CDO=BCRED+CRED*PROPT 
CDN = CDO 

GO TO 5 50 

511  IF (NC.NE. 3)G0T051 2 


XCRED 


CONTINUED 


CDO=BCR ED-X I NCP*OTAX 
CDN=BCRED-XINCP*NTAX 
GO  TO  550 

512  WRITE ( I POUT,  520) 

WRITEC IPOUT, 52 1  ) 

NC=2 
GOTO 501 

550  CONTINUE 

IFCCDO.LE. 150)  GO  TO  556 

551  FORMATC  3X,'XY1', FI  0.2) 

552  FOR MAT ( 3X,yAMAS=^ ,F10.2) 

553  FORMATC 3X ,'CREDI T='  ,FI0.2) 

554  FORMATC  3X , ' PROPT=' , F 1 0 . 2 ) 

555  FORMAT (3X, 'BAD  EST  OF  CRED',F1 2.2,6X,'AT  REC  NO, 
$  18) 

560  FORMATC 3X,'XYZ=',F 10.2) 

561  FORMAT ( 3X ,  ‘'MSTA3*'  ,12) 

TYPE553 ,CDN 
TYPE554,PR0PT 

557  FORMATC  3X, 'NEW  ASSUMED  VALUE  OF  CRDIT'  ,F1  2. 2) 

556  CONTINUE 
RETURN 
END 

eSAV 


] 

RSCH 

SUBROUTINE  RATESH 

]cc 

COMMON/TX/TXN ,  TXO ,  NTAX  ,OTAX 
COMMON/K/K.I  ,K2  ,K3,  K4,K5,N1 

CO  MMON/RSCH/ ARSH (3,30) ,BRSHC 3, 30) , RSHC 3,30) 
CO  MMON/ 1 NC/ XLO S , X I NC , X  FOR , XD I V , X  TOT 
COMMON/DCRED/  ODC,XNDC 

1C 

J  TXO=0 

TXN=0 
1  TXY=0 

J  TX=0 

C 

1  DO  499  1  =  1,  ’<4 

I F ( I . EQ . 2)  TXY=NTAX 


i  8 


R5CH  CONTINUED 


IF  C I  •  EQ •  1  )TXY=OTAX 
C 

I F ( I .EQ. 1 ) NJ=K3 
IF ( I . EQ . 2 )NJ=K5 
C 

DO  498  J  =  1 ,NJ 

I F  ( J .  EQ .  NJ ) GOTO405 
IF(TXY8GE.BRSH(I9J+i ) )G0T041 0 
405  CONTINUE 

TX=( TXY-BRSHC I,J))*RSH(I,J) 
TX=TX+ARSH( I  * J) 

GOTO420 
410  CONTINUE 

498  CONTINUE 
C 

423  CONTINUE 

IF (I .NE. 1 )  GO  TO  450 
TXO-TX 
TXO=TXO— ODC 
IF (TX0.LE.3)  TXO=0 
GO  TO  499 
450  CONTINUE 
TXN=TX 

TXN=TXN-XNDC 
IF (TXN.LE.3)  TXN—3 

499  CONTINUE 
RETURN 


XACUM 


SUBROUTINE  ACCUM 
C 
C 

C0MM0N/LA3EL/L0C  ,  I  YOB, SAM, SI NNO  , SUR  , FNA.ME  ,  ADD 
CO  MMON/ 1 NC/X  LO  S , X I NC , X  FOR , X  D I V , X TOT 
COMMON/DED/DED , XMD , DON , EX  EMP 
COMMON/P DATA /ASS ,PROPT 

COMMON/TDATA/TAX I , FTAX , PTAX , FORT, FFTX , PFTX , STAX ,TADJ , P A I D , 
$CMBAL 

COMMON/CD/ CDO, CDN 
CO  MMON/TX /  TX  N  ,  TX  0 ,  NT  A  X ,  0  TA  X 
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XACUM  CONTINUED 


COMMON/ NC/NC , KCH 
COMMON/ EXC/SN, SO 
COMMON/K/K 1 , K2 ,K3 , K4 , K5 , N 1 

COMMON/SKL/SMC 30,25) , SOTAX C 30 ,30) , SNTAXC 30 ,30) , 

$  SCDOC  30 ,30) ,SCDN(30,30> ,SN1 (30,30) ,STOT( 30,30) ,SPROPC30  ,30) 
COMMON/ ST/ STXO ( 30 , 30 ) , STXN ( 30 , 30 ) 

COMMON/KLAS/XK ( 30 ) ,TXKC30) 

COMMON/PROP/PKLAS ( 25 ) , TP ( 25 ) 

COMMON/FAM/  MSTA,CH1  ,CH2 
COMMON/SUM/SUMS ( 25 ) 

CO  MMON/D I V CD/  OD I V ( 30 ) , SO I V ( 30 ) , XN D I V ( 30 ) 

COMMQN/XKDS/  XCH1 ,XCH2 

COMMON/DCRED/  ODC,XNDC 

INTEGER  CHI ,CH2 

XX  =0 

XY=0 

XX=XCH1 


I FXTRP= 1 

IF ( IEXTRP, NE, 2 )  GO  TO  690 
XNTR-1 ,18893 
XTOT=XTOT/XNTR 
690  CONTINUE 
C 

DO  620  1=1 ,K1 

IF ( XTOT.GE. TXKC  I-H  ))G0T061  5 
IJ=I 
GO  TO 6 2 1 
C 

615  CONTINUE 

IF ( XTO  T,GE . TXX ( K 1 ) ) I J=K 1 

620  CONTINUE 

621  CONTINUE 


C 

c 


IF ( IEXTRP.NE.2)  GO  TO  692 
XTOT=XTQT*XNTR 
692  CONTINUE 

SMCIJ, 1 )~XT0T+5M( I J ,  1  ) 
l  SM( I J,2) =DED  +SM ( I J , 2 ) 

SM(  I J  ,3)  =XMD  +SM(IJ,3) 
SM(IJ,4)=D0N  +SM( I J, 4) 

1  SM(IJ.,5)=EXEMP+SM(  IJ  ,5) 

J  SM( I J ,6)=SN  +SM(IJ,6) 

SMCIJ, 7)=SO  +SM(IJ,7) 

1  SMCIJ, 8)=TAXI+SM( I J ,8) 

J  SMC  I J,9)=0TAX+SM( IJ,9) 


SMCIJ, 10 )=NTAX+SM( IJ, 10) 
SMC  I J , 1 1 )=FTAX*SMC IJ,1 1 ) 
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XACUM  CONTINUED 


SMC  I J  ,  I  2 )=PTAX+SM( IJ ,12) 

SM( IJ, 1 3)=FFTX+SM( I J , 1 3 ) 

SM(IJ , 14)=PFTX+SMC IJ ,14) 

SM  C I J ,  1  5  )  =TX()  +SMC  IJ,15) 

SM( I J. 1 6)=TXN  +  SMC IJ  J  6) 

SM ( I J , 1 7 )  =CDO  +SMCIJ,17) 

SMCIJ, I  8 ) ~CDN  +SMC IJ  ,18) 

SMC IJ,I9)*PR0PT+SM( IJ, 19) 

SM  C I J , 20 ) -SM C I J ,  20  )  +A  SS 
SMC IJ.21 )»SM(IJ,21 )+1 
SMC  I J, 22) s SMC  I J, 22>+XX 
SM  C I J ,23)“SM( I J,23)+XY 
IF  (MSTA.EQ  «.  I  )  SMC  I  J,24)=SM(  I J,24)+XNTR 
IF ( MSTA.EQ .2)  SMC  I J,25)=SMC I J,25)+XNTR 
ODIVCIJ)  =  ODIV C I  J)+()DC 
XNDIVCIJ)  =  XNDIVC IJ)+XNDC 
SDIVCIJ)  =  SDIVCIJ)  +XDIV 
C 

c 

IF ( IEXTRP.NE.2)  GO  TO  695 
PROPT=PROPT/XNTR 

695  '  CONTINUE 

DO  630  1=1 ,K2 
I F ( I . EQ . K2 )  GO  T06  33 
IFCPROPT.GE.TPC  I'M  ))GOTC)633 
IK=I 
GO TO 6 3 1 

633  CONTINUE 

IF (PROPT.GE.TP ( K2 ) ) IK=K2 
630  CONTINUE 

C 

63!  CONTINUE 

IF C IEXTRP.NE.2)  GO  TO  696 
PROPT=PROPT*XNTR 

696  CONTINUE 
C 

C 

SO  TAX  C I J ,  I  :< )  =SOTAX  ( I J  ♦  IK)  +0  TAX 
SN  TAX  C I J ,  I  :<)  =  SINT  AX  C IJ , IK)  +NTAX 
SCDOC I  J»IK)  =SCD()  ( I J , IK )  +CDO 
SCON C 1 J , IK )  =SCDN( I J ,  IK)  +CDN 
SN 1 ( I J , IK)  =SN 1 ( I J , IK)  +XNTR 
STOTC I J , IK)  =STOTC  I J , IK)  +XTOT 
SPROPC IJ, IK)  =SPROPC I J ,  IK)  +PROPT 
STXOCIJ, IK)=STXO(I J, IK)+TXO 
STXNC I J , IK )=STXN( I J , IK) +TXN 
C 
C 
C 

RETURN 


2! 


XACUM  CONTINUED 


END 


c 

TAB.! 


SUBROUTINE  TAB! 

COMMON/SKL/SM ( 30 , 25 ) , SOTAX (30,305  *  SNTAX (30,30), 
$SCDQ(30,30) ,SCDN(30,30> ,SN1 (30,305 , 

$  STOT(30,30) ,SPROP(30,30) 

COMMON/ST/STXO(30,30) , STXNC30, 30) 

COMMON/ K/Kl , K2 , K3 , K4 , K5 , N 1 
COMMON/PROP/PKLASC25 ) ,TP  (  25) 

COMMON/KLAS/XK ( 30 ) ,TXK ( 30 ) 

€OMMON/DATE/  D!,D2,DT,RN 
C 
C 

c 

I POUT-6 

DIMENSION  STB( 30 ,30) 

DO  40  50  I  T=  1  ,4 
IF ( IT.LE, 1 5GOTO401 0 
I F ( I  T»  LE • 2 ) GOTO40 1 1 
■IFCIT.LE.3)GOTO4012 
IF ( IT.LE»4)GOTO40T 3 

4059  FORMAT ( 85X  ,'DATE  OF  RUN*',  1  X,A5,I2,  IX  ,14) 

4060  FOR  MAT (  1  HI ) 

4061  FORMAT!  1 H— ) 

.  4062  FOR  MAT  C  3X , 44H  NUMB DR  OF  TAX  FILERS  IN  EACH  PROPERTY  CLASS) 

4063  FORMAT!  3X  =======—========================”=======') 

4064  FORMAT! 3X ,'TOTAL  INCOME  IN  EACH  PROPERTY  CLASS-') 

4065  FORMAT!  1 1  <3X*7H— - )> 

4066  FORMAT!  3X,F7.0, 10 (F10* 1  )) 

4067  FORMAT!  3X  ,'===——=======================-=====') 

4068  FORMAT! 3X, 'AVERAGE  GROSS  INCOME  IN  EACH  PROPERTY  CLASS' ) 

4069  FORMAT!  3X  ,'============;===’======= ===========  ========='  ) 

4070  FORMAT (3X , 'AVERAGE  PROPERTY  TAX  PAID  IN  EACH  CLASS' ) 

4071  F0RMAT(3X  ♦'===“===================================*') 

4072  FORMAT! 3X, 'GROSS' ) 

4073  FORMAT! 3X,' INCOME', 20X, 'PROPERTY  CLASSES') 

4074  FORMAT! 3X CLASS' ,2X, 10F10.0) 

4075  FORMAT!  3X  , '  TOTAL'  ,  1 0 (F 1 0. 1 ) ) 

4076  FORMAT! 8 5X, 'RUN  NUMBER-'  ,F4.0> 

C 
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(' 


TAB1  CONTINUED 


C 

401 0  CONTINUE 

WRITE! I POUT, 4059 )  DT,D1,D2 
WRITE! I POUT, 4076)  RN 
WRITE! IPOUT,  406 1 ) 

WRITE! IPOUT, 4062 ) 

WRITE! I  POUT,  4063) 

WRITE! IPOUT, 406 ! ) 


GO  TO 40  2 5 

4011  CONTINUE 

WRITE! I POUT, 4059)  DT,D!,D2 
WRITE! IPOUT, 4061 ) 

WRITE! I  POUT ,4064) 

WRITE! IPOUT, 4067 ) 

WRITE! IPOUT, 4061  ) 

C 

GO TO 40 2 5 

4012  CONTINUE 

WRITE! I  POUT, 4059)  DT,D1,D2 
WRITE! IPOUT, 406! ) 

WRITE! IPOUT, 4068) 

WRITE! IPOUT, 4069) 

WRITE! IPOUT, 4063 ) 

C 

GOTO4025 

4013  CONTINUE 

WRITE!  IPOUT, 4059)  DT,D1,Q2 
WRITE! IPOUT, 4061 ) 

WRITE! IPOUT, 4070) 

WRITE! IPOUT, 4071  ) 

C 

4325  CONTINUE 
IB=K2/ 1 0 
I3=IB+! 

IF ! K2 , EQ . 20 )  IB=2 
IF  ( K2 .  LE.  .1  0 )  IB- 1 
IP=0 
IX=0 

c 

c 

c 

DO 4090 1 J= 1 , IB 
IX=IX+i 
IY=! +IP 
XP=I0*IX 

IF! IP.GE.K2) IP=K2 
IK=I  Y 

WRITE! IPOUT, 4072) 
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TAB!  CONTINUED 


WRITE! IPOUT, 4073) 

WRITE! IPOUT, 4074) ,!PKLAS(JP) ,JP=IK, IP) 

WRITE! IPOUT, 4065) 

WRITE! IPOUT, 406! ) 

C 

c 

c 

HF  !  I  T.LEr.l  )GOTO4015 
I F ! I T.  LE  o  2 ) GOTO40 1 6 
IF! IT.LE.3 )GOTO401 7 
IF(IT.LE.4)G()TO4018 
C 

4015  CONTINUE 
C 

C 

C 

DO 40 801  s|  tK1 
C 
C 

4081  WRITE! IPOUT, 4066), XKC I) ,(SN1 ( I , JP) , JP=IK, IP) 
4080  CONTINUE 

WRITE!  I  POUT,  40  6.1  ) 

WRITE! I POUT, 4075)  (SN1 !K1-H  ,JP) ,JP=IK,IP) 
WRITE! IPOUT,  4060) 

GOTO 407 9 

4016  CONTINUE 

DO  40821  =  1 

4083  WRITE  (IPOUT,  4066)  ,XK(I)  ,(ST()T!I  ,JP)  ,JP=IK,IP) 

4082  CONTINUE 

WRITE! I  POUT, 4061  ) 

WRITE! IPOUT, 4075)  '  (STOT!K! +1  ,JP) ,JP=XK,IP) 
WRITE! IPOUT, 4060) 

GO  TO 40 7.9 
40! 7  CONTINUE 

DO 40341-™?  ,K1 

DO4085 JP=IK, IP 

IF! SHI ( X , JP) . EQ.Q) GOTO 409  1 

STB!  I,  JP)=5TOT(  I  ,*JP)/SN1  ( I ,  JP) 

GOTO4085 
4091  CONTINUE 

ST3! I , JP) =0 
4085  CONTINUE 

WRITE! I  POUT, 4066) ,XK( 15, ! STB ( I , JP) , JP=IK  ,IP ) 

4084  CONTINUE 

WRITE! I  POUT,  4060) 

C 

GOTO  40  7.9 
4018  CONTINUE 

0040361=1 , K1 
DO4087JP=IK, IP 


24 


TAB  1  CONTINUED 


IF ( SNI ( I,JP) .EQ.0 )  GOTO4092 
STB( I ,  JP )=SPROP( I ,JP)/SN1 ( I ,JP) 

GOTO4087 
4092  CONTINUE 

STB (I ,JP)=0 
4087  CONTINUE 

WRITE! I  POUT, 4066) ,XK( I ) , ( SIB ( I , JP ) , JP  =  I K , IP ) 
4086  CONTINUE 

WRITE! I POUT, 4060) 

C 

c 

4079  CONTINUE 
4090  CONTINUE 
4050  CONTINUE 
RETURN 
END 


NTAB2 


SUBROUTINE  TAB 2 

COMMON/SKL/SMC  30 ,25) , SOTAX (30,30) , SNTAX ( 30 ,30) , 
$  SCDO (30,30), SCDN ( 30 . 30 ) , SN 1 ( 30 , 30 ) , 

$  STOT( 30,30) ,SPROP(30»30) 

CO?4MON/ST/STXO(30, 30)  ,STXN(30,  30) 

CQMMON/K/K1 ,K2,K3,K4,K5,N1 
COMMON/PRO?/PKLAS( 25 ) ,TP( 25 ) 

CO  MMON/ KLA  S/XK ( 30 ) ,TXK(30) 

COMMON/DATE/  D1 ,D2 ,DT,RN 
C 
C 
C 

IP0UT=6 

DIMENSION  STB (30, 30) 

DO4050  IT= 1 , 5 
IF( IT.LE. 1  )GOTO40 1 0 
I F  ( I  T.  LE .  2  ) GOTO40 1 l 
I F  ( I T.  LE .  3 ) GOTO40 1  2 
IF ( IT.LE. 4)GOTO401  3 
IF ( IT. LE. 5 )GOTO40 1 4 


4059  FORM AT(35X, 'DATE  OF  RUN* ' , 1 X , A5 , 1 2 , ' , ' , I  X , 14 ) 
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NT  A3  2 


4063 

4061 

4062 
4063 

4064 
4365 

4066 

4067 

4068 

4069 

4070 

4071 

4072 

4073 

4074 

4075 

4076 
4077 
C 

c 

c 

4010 


c 

c 

401  1 


C 

4012 


4013 


CONTINUED 


FORMAT!  1  HI  ) 

FOR MAT ( 1 H- ) 

FORMAT! 3X,' AVERAGE  TAXES  PAID, OLD  TAX  STRUCTURE') 

FORMAT! 3X  ■'  =======  ===================================<?  ) 

FORMAT!  3X,'  AVERAGE  TAXES  PAID, NEW  TAX  STRUCTURE'  ) 
FORMATd  1  !3X,7H— — )) 

FORMAT ! 3X,F7.0 , 10 !F 1 0.1 ) ) 

FORMAT! 3X1' AVERAGE  DISPOSABLE  INCOME') 

FORMAT  ( 3X, '«=«==«==  =============== ============-✓) 

FORMATOX, 'DISPOSABLE  INCOME  AS  %  GROSS  INCOME, A V.'  )  * 
FORMATC  3X, ■'»»**=*== =====?========================='  ) 

FORMAT! 3X  'GROSS') 

FORMAT! 3X INCOME'  , 20X , ■'PROPERTY  CLASSES'  ) 

FOR  MAT ( 3X CLASS' , 2 X , 1 0 F 1 0 . 0 ) 

FORMAT! 3X,' AVERAGE  PROPERTY  TAX  CREDIT,  NEW  STRUCTURE') 
FORMAT !  3X , '  ==================================  ======✓  ) 

FOR  MAT  C 8  5X ,  ■ ' R  UN  NUMBER' , F4 .0 ) 


CONTINUE 

WRITE! I  POUT, 4059)  DT,D1 ,D2 
WRITE! I POUT ,4077)  RN 
WRITE! I POUT, 4061 ) 

WRITE! I POUT, 4062 ) 

WRITE! IPQUT,4063> 

WRITE! IPOUT, 406 ! ) 


GO TO 40 25 
CONTINUE 

WRITE! IPOUT, 4059)  DT,D1,D2 
WRITE (IPOUT, 4061 3 
WRITE! IPOUT, 4064) 

WRITE! IPOUT, 4067) 

WRITE! I POUT, 406 1  ) 

GO TO 4025 
CONTINUE 

WRITE! IPOUT, 4059)  DT,D1 ,D2 
WRITE! I POUT, 4061  ) 

WRITE!  IPOUT, 4068) 

WRITE! IPOUT,  4069) 

WRITE! I  POUT, 4061  ) 


GJ TO 40 2 5 
CONTINUE 

WRITE!  IPOUT, 4059)  DT,D1,D2 
WRITE! I  POUT, 4061  ) 


oo  ooo  o  noo  non 
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NT  A  B  2  CONTINUED 


WRITE! I  POUT, 4070) 

WRITE! I POUT, 4071 ) 

GO TO 40 2 5 
4014  CONTINUE 

WRITE! IPOUT, 4059)  DT,D! ,D2 
WRITE!  I  POUT,  406.1  ) 

WRITE! IPOUT, 4075) 

WRITE! IPOUT, 4076) 

C 

4025  CONTINUE 
I 3=K2/ 1 0 
I3=I8*M 

IF(K2.EQ.20)  IB  =2 
IF ( K2.LE, 1 0)  I B= 5 
IP=0 
IX=0 


DO 43901 J=1 , IB 
IX=IX+i 
I  Y-l +IP 
IP=1 0* I X 

IF! IP.GE.K2) IP=K2 
IK=IY 

WRITE!  IPOUT, 4072) 

WRITE! IPOUT, 4373 ) 

WR  ITE! I  POUT, 4074) , !PKLAS( JP) ,JP=IK,IP) 
WRITE! IPOUT, 4065) 

WRITE! IPOUT, 4061  ) 


IFCIT.LE.l )GOTO401 5 
IF! IT.LE.2 )GOTO401 6 
IF! IT.LE.3)GOTO40I7 
IF ! IT.LE.4 )GOTO401 8 
IF! IT.LE.55GOTO4019 

15  CONTINUE 


DO 40 30 1=1 , K1 


DO4031 JP=IK, IP 
IF <SN1 C I  ,JP) , EQ , 0 ) GOTO4030 
5T3 !  I  ,'JP  )=5TX0(  I  ,JP)/SN1  (I  ,JP) 
GOTO403 1 
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NTA32  CONTINUED 


4030  CONTINUE 
STB C I ,  JP) =0 

4031  CONTINUE 

4081  WRI TE( I  POUT, 4066) ,XK< I ) , (STBC I , JP) , JP=IK. IP) 
4080  CONTINUE 

'NR  I  TEC  I  POUT,  4060) 

GO TO 40 7 9 

4016  CONTINUE 

EX) 40  82 1  =  1  » tCl 

DO4032JP*IK,IP 

IF (SN1 CI.JP) .EQ.0)GOTO4033 

STBC I , JP)=STXN( I , JP )/SNI C I , JP) 

GOTO4032 
4033  CONTINUE 

ST3(  I ,  JP  )  =0 

4032  CONTINUE 

WRITER  I POUT, 4366)  XKC I ) , C STB C I , JP ) , JP=I K , IP ) 

4082  CONTINUE 

WRI TEC  I POUT, 4060) 

GO 104379 

4017  CONTINUE 

DC)  4084 1  ,K1 

DC)4035JP=I  IP 

IFCSN1  (  I  ,JP) . EQ ,0 ) GOTO 409 1 

STB  ( I  ,  JP)=STC)T(  I ,  JP  )"STXN(  I ,  JP } 

STB ( I ,J?)=STB( I , JP )/SN  t (I  ,JP) 

GOTO4085 

4091  CONTINUE 
ST3( I , JP)=0 

4085  CONTINUE 

WRITE? IPOUT,  4066 ) , XKC I ) , CST3C I ,JP) ,JP=IK, IP) 
4084  CONTINUE 

WRI TEC IPOUT, 4060 > 

C 

GO  TO  ^3 79 

4018  CONTINUE 

DO 40361=1 ,K1 

DO4037  JP=I  SC,  IP 

IFCSN1 ( I , JP ) . EQ . 0 ) GOTO4092 

STBC I , JP)=STOT( I , JP)-STXNC I , JP) 

ST3(  I , JP )  =  ( STB ( I  , JP )/STOT( I , JP ) )*1 00. 

GO T04387 

4092  CONTINUE 

STBC I , JP) =0 
4087  CONTINUE 

WRITE  (IPOUT,  4066)  ,XI<(  I )  ,  C  STBC  I ,  JP )  ,  JP=I  K  ,  IP  ) 

4086  CONTINUE 
WRI TEC IPOUT, 4060 ) 

GOTO 40 79 
CONTINUE 


4019 
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NTAB2  CONTINUED 


DO  4093  1  =  1  ,K1 
DO4034JP=IK,IP 
I F ( SN 1 ( I , JP) . EQ.0)GOTO4035 
STB ( I  ,'JP  )=SCDN (I  ,  JP )/SN1  ( I  ,JP) 

GOTO 4034 

4035  STB  ( I  ,  JP  )  =0 
4034  CONTINUE 

WRITE! IPOUT, 4066) , XK( I ) , ( STB ( I , JP ) , JP=IK , IP ) 
4093  CONTINUE 

WRITE! I  POUT, 4060) 

C 

c 

4079  CONTINUE 
4090  CONTINUE 
4050  CONTINUE 
RETURN 
END 


SEND 


TAB  3 


SUBROUTINE  TAB 3 

COMMON/SKL/SM! 30 , 25 ) , SOT AX! 30 ,30) ,SNTAX! 30,30) , 
$SCDO (30,30) , SCDN! 33, 30) ,SN! ! 30,30) , 

$  STOT! 33,30) ,SPROP! 30,30) 

CO  MMON/ST/  STXO ! 30 , 30 ) , STXN ( 30 , 30 ) 

COMMON/K/K1 , K2 ,K3 ,K4 ,K5, N 1 
COMMON/PROP/PKLAS ( 25 ) ,TP ! 25 ) 

COMMON/KLAS/XK ( 30 ) ,TXK( 30 ) 

COMMON/ DATE/  D!,D2,DT,RN 
C 
C 
C 

I P0UT=6 

DIMENSION  STB (30, 30) 

DO4050  IT=1,4 
IF ( IT.LE. 1 )GOTO4010 
IF! IT. LE.2 )GOTO401 1 
IF! IT.LE. 3)GOTO401  2 
IF! IT.LE. 4)GOTO401 3 

4059  FORMAT! 34X , 'D©TE  OF  RUN* ' , I  X, A5 , 1 2 , ' , ' , 1 X , 14) 

4060  FORMAT! 1  Hi) 

4061  FORMAT! 1 H- ) 
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TA 33  CONTINUED 


4062  FORMAT  !3X,-'  TOT@L  TAXES ,  NLD  5XSTDL  (EXBL. PROP. TAX  K) 

4063  FORMAT!  3X  ==============:=====================  =====-'  ) 

4064  FORMAT ( 3X , 'TOTAL  TAXES,  NEW  SYSTEM  C EXCL. PROP. TAX) '  ) 

4065  FORMAT (  1  1  (3X  ,7H— — — ) ) 

4066  FORMAT!  3X  ,F7 .0 ,  J  0  ( F 1 0 ..!  )) 

4067  FORMAT ( 3X  » '  ====ss“=s=s===============s====s=j’  ) 

4068  FORMAT! 3X^  TOTAL  PROPERTY  TAX  CREDIT, OLD  SYSTEM"' ) 

4069  FORMAT  (3X, '=«=«=«===*===========«===—==========*') 

4070  FORMAT C3X,'  TOTAL  PROPERTY  TAX  CREDIT,  NEW  SYSTEM')  * 

4061  FORMAT!  3X, '=«*=«»=«“«=— ===«=====«*==-=*==='  ) 

4372  FORMAT! 3X, 'GROSS'! 

4073  FORMAT! 3X,^ INCOME', 20X, 'PROPERTY  CLASSES-'  ) 

4074  FORMAT C  3X*-' CLASS' ,2X,  10F1-0.0) 

4075  FORMAT! 3X  TOTAL'  , .1 0 ( FI  0 .  1 5  ) 

4076  FQRM8T(85X,'RUN  NUMBER-'  ,F4.0) 

C 

c 


4010  CONTINUE 

WRITE! I  POUT,  4059)  DTtD1  ,D2 
WRITE! I  POUT, 4076)  RN 
WRITE! I POUT, 4061 ) 

WRITE! I POUT, 4062 ) 

WRITE! I POUT, 4363) 

WRITE! IPOUT, 406 1  ) 

C 

c 

GO  TO 40 2 5 

4011  CONTINUE 

WRITE! IPOUT, 4059)  DT,D1 ,D2 
WRHTE! I POUT, 4061 ) 

WRITE! I POUT ,4364) 

WRITE! I POUT, 4067) 

WRITE! I POUT, 4361 ) 

C 


GO 1043 25 

4012  CONTINUE 

WRITE! I POUT, 4059 )  DT, D1  ,D2 
WRITE! I  POUT, 406!  ) 

WRITE! I POUT, 4068) 

WRITE! I POUT, 4069 ) 

WRITE!  IPOUT, 406.1  ) 

C 

GOTO4025 

4013  CONTINUE 

WRITE!  IPOUT, 4058!  DT,D.l  ,D2 
WRITE! I POUT, 406!) 

WRITE! IPOUT, 4070) 

WRITE! IPOUT, 4071  ) 

C 

_  4025  CONTINUE 


on  ooo  o  i  ooo  i  ooo 
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TAB 3  CONTINUED 


I3=K2/10 

IB=IB+1 

IF (K2. EQ.20)  I B=2 
IF(K2.LE.1 0)  I  B  =  1 
IP=0 
IX=0 


D()4390IJ=1  ,  IB 
IX=IX-H 
IY=1 +IP 
IP=10*IX 

IF ( IP.GE,K2) IP=K2 
IK=I  Y 

WR I TE ( I POUT, 4072) 

WRITE!  I  POUT,  4073) 

WRITE! I POUT,  4074 ) , (PKLASC  JP( ,JP=IK,IP) 
WRITE! I POUT, 4065) 

WRITE! I POUT,  4061  ) 


HFUiT.LE.  1  )  GOTO  401  5 
I F ( HT.LD. 2 ) GOTO 40  j 6 
IF  ( I  T. LE. 3 )GOTO40l 7 
IF ( I T.LE.4 )GOTO401 8 

4015  CONTINUE 


DO 40801-1 ,Xl 


4081  WRITE! I  POUT, 4066! ,XK( I ) ,(STXO( I , JP ) , JP=I K , IP ) 
4080  CONTINUE 

WRITE! IPOUT,4061 ) 

WRITE! IPOUT, 4075 )  !STXO(Kl+1 , JP ) , JP=I X , I P ) 
WRITE! IPOUT, 4060) 

GO TO 4079 

4016  CONTINUE 

0040821=1 , K 1 

4083  WRITE! IPOUT, 4066) ,XK!I ) ,(STXN(I ,JP) ,JP=IK*IP> 

4082  CONTINUE 

WRITE! IPOUT, 4061  ) 

WRITE!  I  POUT,  4075)  (STXNC<1  +!  ,  JP)  ,  JP=IK,IP) 
WRITE! IPOUT, 4060) 

GOTO4079 

4017  CONTINUE 


3! 


TAB3-  CONTINUED 


DO4084I=1  ,K1 

WRITE! I POUT, 4066 ) , XK( I ) » ( SCDO! I,JP),JP=IK,IP) 
4084  CONTINUE 

WRITE! I  POUT,  4061 ) 

WRITE!  I  POUT,  4075)  (SCDO!  J0+.1  ,  JP)  ,  JP-IK,  IP ) 
WRITE! I POUT, 4060) 

C 

GO  TO  407.9 
4018  CONTINUE 

DO4086H*! ,K1 

WR IT5C I POUT,  4066) , XK! I ) t(SCDN(I ,JP) ,JP=IJ,IP) 
4086  CONTINUE 

WRITE! IPOUT, 4061 ) 

WR ITEC I POUT,  4075 )  (SCDN(K1+1 ,JP) ,JP=IK,IP) 
WRITE! I POUT, 4060) 

C 

c 

4079  CONTINUE 
4090  CONTINUE 
4050  CONTINUE 
RETURN 
END 


TAB  4 


SUBROUTINE  TAB 4 

COMMON/SKL/SM ( 30 ,25) ,SOTAX(30 ,30) , SNTAX ! 30 ,30) 
$  SCDO (33,30), 5CDN (30,30) , SN 1 (30,30) , 

$  STOT(30,30)  ,SPR()P ! 30, 30 ) 

CO  MMON/  ST/ S  TXO  ( 3 0 , 30 )  ,  S  TX  N  ( 30 , 30 ) 

CO MMON/K/fC  1  ,  K2 ,  K3 ,  K4  , K5  ,  N 1 
COMMON/PROP/PKLAS ! 25 ) , TP ! 25 ) 

COMMON/KLAS/XK! 30) , TXK! 3d ) 

COMMON/DATE/  D1 ,D2,DT,RN 
COMMON/FAM/  MSTA,CHJ ,CH2 
.  COMMON/SUM/SUMS! 25) 

COMMON/DI  VCD/  ODI V ( 30 ) ,SDI V! 30 ) , XNDIV!30) 

C 

C 

IC 

*  I  P0UT=6 

DIMENSION  STB (30,30) 

] 
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TA34  CONTINUED 


DO 40 50  IT=i,4 
IFdT.LE.  1  )  GO  TO  40 1  0 
IF ( IT.LE. 2)GOTO40! I 
IFCIT.LE.3 )GOTO40 1 2 
I F  < I  T.  LE . 4 )GOTO40 1  3 

4059  FORMAT ( 85X ,  'DATE  OF  RUN : ' ,1 X , A5 , 1 2 ,' ,' , I X , 1 4) 

4060  FORMAT! 1  Hi) 

4061  FORMAT  < 1 H-) 

4062  FORMA  T(3X,' SUMMARY  TAX  DEDUCTION  DATA'  ) 

4063  FORMAT!  3X ,6( 5H=~=== ) ) 

4064  FORMAT! 3X,' INCOME  TOTAL  DEDUCTIONS 

$  MEDICAL  DONATIONS') 

4065  FOR M AT!  3X,' CLASS  INCOME  # 

$  RECEIPTS  #') 

4066  FORMAT!  1  X ,F3 .0 ,4F 1 5 .2 ) 

4067  FORMAT!  3X  ,8H— ■ - - ■,  2X  ,4 !  5X  ,8H - -  — —  ,2X ) ) 

4068  FORMAT! 3X,' INCOME  PERSONAL  EST.  EX EM? 

$  AV.EXEMP' ) 


C 

4069 

4070 
407! 
4072 


4073 


4074 

4075 

4076 

4077 
C 


FORMAT! 3X, 'CLASS 
) 

FORMAT!  3X,' INCOME 

EXEMP.  NEW 

OLD 

NO. OF  CH-N 

NO. OF  CH~ 

NO.  OF 

NO.0P' ) 

FORMAT! 3X, 'CLASS 

UNDER  16 

OVER  16 

SINGLES' ) 

FORMAT!  3X,' INCOME 

TOTAL  CRED 

AV.  CRED 

A V. CRED' ) 

FORMAT!  3X, 'CLASS 

OLD 

OLD 

NEW') 

FORMA T(3X, 'SUMMARY  TAX  EXEMPTION  DATA') 
FORMAT!  3X  .'SUMMARY  DEPENDENCY  DATA') 
FORMAT! 3X, 'SUMMARY  TAX  CREDIT  DATA') 
FOEMATC35X  ,'RUN  NUMBER' ,F4. 0 ) 


4010  CONTINUE 

WRITE! I POUT, 4059 )  DT,D1 „D2 
WRITE! I POUT ,40 77)  RN 
WRITE! IPOUT, 4061  ) 

WRITE! IPOUT, 4062 ) 

WRITE! IPOUT,  4063) 

WRITE! IPOUT, 406 1  ) 

WRITE! IPOUT, 4064) 

WRITE! I  POUT, 4065) 

WRITE! IPOUT ,4067 ) 

WRITE! I  POUT, 4061  ) 

C 

C 


GO TO 40 2 5 
4011  CONTINUE 


EST.EXEMP 


NEW 


TAX FILERS 
TOTAL  CRED 
NEW 


nooooo  ooo 
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TAB  4  CONTINUED 


WRITEC IPOUT ,4059 )  DT,D1 ,D2 
WRITE! IPOUT, 406 1 ) 

WR I  TEC IPOUT, 4074) 

WRITEC IPOUT, 4063) 

WRITE  (  I  POUT,  406.1  ) 

WRITE (I  POUT, 4068) 

WRITE ( IPOUT,  4069) 

WRITEC I  POUT, 4067) 

WRITEC I POUT, 406? ) 

C 

GO  TO4025 

4012  CONTINUE 

WRITEC IPOUT, 4059)  DT,D1 ,D2 
WRITEC I POUT, 4061 ) 

WRITEC I  POUT, 4075) 

WRITEC IPOUT, 4063) 

WRITEC IPOUT, 4061 ) 

WRITEC  IPOUT, 4073) 

WRITEC IPOUT, 407!  ) 

WRITEC IPOUT, 4067) 

WRITEC I  POUT, 436! ) 

r» 

v. 

GO  TO 40  2 5 

4013  CONTINUE 

WRITEC  IPOUT,  4059)  DT,D!,D2 
WRITEC I  POUT, 406!  ) 

WRITEC I  POUT, 4076) 

WRITEC I POUT, 42 63) 

WRITEC I  POUT, 4072) 

WRITEC I  POUT, 407 3) 

WRITEC IPOUT, 4067) 

WRITEC IPOUT, 4061  ) 

C 

4025  CONTINUE 


IFCIT.LE. 1 )GOTO40 1  5 
I F  C I  T.LE.2  )GC)TO40 1  6 
IFCIT.LE. 3)GOTO401 7 
IFCIT.LE. 4)GOTO4018 

4015  CONTINUE 


X=0 


DO 40 80 1  =  1  ,  K) 
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TAB  4  CONTINUED 


408!  WRITE! IPOUT, 4066) ,XK!I) ,  (SM!  I , J ) , J= 1  ,4) 

4080  CONTINUE 

WRITE! I  POUT, 4061  ) 

WRITE! IPOUT, 4066 ) ,X,(SUMS(J) ,J=1 ,4) 

WRITE! IPOUT, 4060) 

GOTO4079 

4016  CONTINUE 

DO 4082 1 -1  „  K! 

Ir (SMCI ,21 J.LE.0)  GO  TO  4096 
STB (1*1 )-SM( 1,7) /SMC  I ,2!  ) 

GO  TO  4097 

4096  STB ! I , 1) =0 

4097  CONTINUE 

4083  WRITE! IPOUT, 4066) ,XK( I ) ,SM( 1 ,5) ,SM( I ,7) ,SM( I ,6) ,ST3(1 , 1  ) 

4082  CONTINUE 

W R ITEC IPOUT, 4061  ) 

WRITE! I  POUT, 4066 ) ,X, SUMS! 5) , SUMS (7 ) ,SUMS (6) 

WRITE! IPOUT, 4060) 

GOTO4079 

4017  CONTINUE 

0040341  =  1  ,;<i 

WRITE! IPOUT, 4066) , XK( I ) , SM ( I ,22) ,SM( I , 23) ,SM( I ,2 1 ) , SM< I ,24) 

4084  CONTINUE 

WRITE! I POUT, 40ol ) 

WRITE! IPOUT, 4060) ,X,SUMS(22) , SUMS! 23 ) , SUMS ( 2 1 ) 

WRITE! I  POUT,  4060) 

C 

GOTO4079 

4018  CONTINUE 

D!)  40361  =  1  ,X1 

IECSM! 1,21 ) . LE . 0 ) GOTO4092 
STB! 1 , 2 ) =SM ( 1 , 1 7 ) / SM ! 1 ,21  ) 

STB! I ,3)=SM( I, 13)/SM(I ,21 ) 

GO TO 408 7 
4092  CONTINUE 

STB (1,35-0 
STB! I ,2)=0 
4087  CONTINUE 

WRITE! I  POUT, 4066) ,XK( I ) , SM ( 1 , 1 7 ) , STB ( 1 , 2 ) ,SM( 1 , 1 8 ) , STB ( 1 ,3) 
4086  CONTINUE 

WRITE! I  POUT,  4066)  X,SUMS( 17) ,X,SUMS( 13),X 
WRITE! I  POUT,  4060) 

C 

C 

4079  CONTINUE 
4090  CONTINUE 
4050  CONTINUE 
RETURN 
END 


o 
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1  A3  5 


r 

w 

C 

c 


4059 

4060 

4061 

4062 

4063 

4064 

4065 

4066 

4067 
4063 

C 

4069 

4077 

4078 

4070 

4071 

4072 

4074 

4075 
5000 


SUBROUTINE  TAB5 

COMMON/SKL/SMC 30,25) , SOTAX (30,30) ,SNTAX(30,30) , 
$SCDO(30,30) , SCDNC33, 30) ,SN1 (33 ,30) , 

$  STOT(30,30) ,SPROP<30,30) 

COMMON/ ST/ STXO ( 30 , 30 ) , STXN ( 30 , 30 ) 

BNMMON/K/ K.l  , K2  ,  K3 ,  K4  , K5 , N  t 
COMMON/PROP/PKLASC25) , TPC25) 

COMMON/KLAS/XK ( 30 ) ,TXK ( 30 ) 

COMMON/DATE/  D! ,  D2 ,DT,RN 
CO MMQN/FAM/  MS TA , CH 1  , CH2 
COMMON/SUM/SUMS (25) 

COMMON/DI VCD/  ODIVC30)  ,SDIV( 30) ,XNDIV( 30) 


I ?0UT=6 

DIMENSION  STB (30, 30) 

DO 40 50  11=1,4 
IFCIT.LE. ! ) GOTO 40 1 0 
IF ( IT.LE.2)GOTO401 1 
IF(IT.LE.3)GOTO40! 2 
IF(IT.LE.4)GOTO40I3 

FORMATC  85X, 'DATE  OF  RUNs ' , 1 X , A5 , 1 2 , ' , ! X , 14) 
FORMATC 5  HI  ) 

FOR MAT < 1 H— ) 

FORMATC 3X, 'SUMMARY  TAX  DATA') 

FORMATC  3X ,  6  ( 5H«== ) ) 

FORMATC  3X INCOME  TAXES  TAXES 

$  TAXES  TAXES'’ ) 

FORMATC 3X, 'CLASS  TOTAL, OLD 

$  AV . ,OLD  TOTAL , NEW  AV . , NEW' ) 

FORMATC 1 X,F3*0 ,4F 15,2) 

FORMATC  3X  ,8H— - - ,2X  ,4C5X,  8H-— —  ,2X  ) ) 

FORMATC 3X INCOME  CREDIT  % 

$ CREDIT  %  CREDIT  %  CREDIT  %') 


FORMATC  3X, 'CLASS 
$  GR.INC 

FORMAT C3X,' 

$  (NEW) 


GR.INC 
TAXES' ) 
(OLD) 
(NEW) ') 


FORMATC  3X, 


(TAXES  EXCLUDE  EFFECT 


s 

$ 


FORMATC 3X,' INCOME 
TAXES  % 

FORMATC 3X,' CLASS 
GR.INC 
FORMATC 3X,' 


TAXES  % 
TAXES  %') 

GR. INC 
GR.INC' ) 

LS.CRED. ' ) 


TAXES 
C  OLD ) 

OF  CREDIT)') 
TAXES  % 

GR.INC 

LS.CRED. 


FORMATC 3X,' INCIDENCE  OF  PROPERTY  TAX  CREDIT') 
FORMATC 3X,/ INCIDENCE  OF  TAXES') 

FORMATC  3X, 'DIVIDENDS' ) 
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TAB 5  CONTINUED 


5031 

< 

5302 

< 

5003 

C 

4010 


FORMAT ( 3X , 'INCOME 
NEW  DIV') 
FORMAT!  3X  *■' CLASS 
CREDIT 


TOTAL 


DIVIDENDS 


CREDIT') 
:0RMAT(85X  'RUN  NUMBER' ,F4.0) 


CONTINUE 

WRITE! I  POUT, 4059) 
WRITE! IPOUT, 5303 ) 
WRITE! I POUT, 4061 ) 
WRITE! IPOUT, 4062 ) 
WRITE! IPOUT, 4063) 
WRITE! IPOUT, 4061  ) 
WRITE! IPOUT, 4064 ) 
WRITE! IPOUT, 4065) 
WRITE! IPOUT, 4067) 
WRITE! IPOUT, 4078) 
WRITE! I POUT, 4061  ) 


DT,D! 

RN 


»D2 


C 


C 


GO TO4025 

4011  CONTINUE 

WRITE! I  POUT, 4059)  DT,DI,D2 
WRITE! IPOUT, 4061 ) 

WRITE! IPOUT, 4074) 

WRITE! IPOUT, 4063) 

WRITE! I POUT, 4061 ) 

WRITE! IPOUT, 4063) 

WRITE! IPOUT, 4069) 

WRITE! IPOUT, 4077) 

WRITE! I  POUT, 4067) 

WRITE! I  POUT, 407 3) 

WRITE! IPOUT, 4061 ) 

GO TO 402 5 

4012  CONTINUE 

WRITE! IPOUT, 4059)  DT,D1 ,D2 
WRITE! IPOUT, 4061  ) 

WRITE! I  POUT, 4075) 

WRITE! IPOUT, 4063) 

WRITE! I  POUT, 4061 ) 

WRITE!  IPOUT, 4070) 

WRITE! IPOUT, 4071  ) 

WRITE! IPOUT, 4072) 

WRITE! I  POUT, 4077) 

WRITE! I  POUT, 4067) 

WRITE! I  POUT, 4061  ) 


4013 


GO TO 40 2 5 
CONTINUE 


OLD  DIV 
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TAB 5  CONTINUED 


WR I  TEC  I POUT ,4059 5  DT ,D 1 , D2 
WR I TE( I  POUT, 4061  ) 

WRITEC I POUT, 5000) 

’NR  I  TEC  I  POUT,  4063  ) 

WRITEC  I  POUT,  406!  ) 

WRITEC I  POUT, 5001 ) 

WRITEC I  POUT, 5 002) 

WRITEC I POUT, 4067) 

WRITEC I POUT, 4061  ) 

C 

4025  CONTINUE 
C 
C 
C 

IFCIT.LE.l  )GC)TO40 1  5 
I F  C I T.  LE . 2 ) GOTO40 1 6 
IF ( I T,LE. 3 ) GOTO 40 1 7 
IF ( IT. LE. 4 )GOTO40 1 8 
C 

4015  CONTINUE 
C 

X=0 

c 

c 

0040801=1 , K! 

IF (SMC  1 ,2! ).LE.0)3O  TO  ^040 
ST3C I, 1 ) -SMC  1,15)/ SM ( I ,21) 

ST3C I,2)=SM( I , 1 6 )/SMC I ,21 ) 

GOTO  434! 

4040  STB  Cl*! ) =0 

ST5C  1 , 2 )  =0 

4041  CONTINUE 
C 

c 

4081  WRITEC IPOUT,4066 ) ,XK( I ) , SMC  1 , 1 5 ) , STB ( 1 , 1) , SMC  1 , 1 6) , STB ( 1 ,2) 
4080  CONTINUE 

WRITEC I  POUT, 40 61 ) 

WRITEC I POUT, 4066), SUMS (15) ,X,SUMSC !6),X 
WRITEC I POUT, 4060) 

GOTO4079 

4016  CONTINUE 

DO 4082 1  =  1  ,  SCI 

IF  CSMC I , 1 ) ,LE,0)  GO  TO  4096 
STB  C I , 3)=SM( 1 , 1 7 )/SM( 1,1) 

ST3C I , 4 ) =SMC I , 18)/SM(I , 1 ) 

GO  TO  4043 
4096  STB  C I , 3 ) =0 

STBC I , 4 ) =0 
4043  CONTINUE 

IFCSMC I ,15).LE.0)GO  TO  4044 
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TA35  CONTINUED 


STB (I , 5 ) =SM( I , 1 7 )/SM( I , 1 5) 

GO  TO 40 4 5 

4044  STB  (  I  ,5 )  =0 

4045  CONTINUE 
IF(SM(I,16).LE.0)  GO  TO  4046 
STB ( I , 6 ) =SM( I , I8)/SM(I , 16) 

GO  TO  4097 

4047  CONTINUE 

4046  STB ( I  ,  6 )  =0 
4097  CONTINUE 

4083  WRITE! I  POUT, 4066) , XK( I ) , STB ( I , 3) , STB ( I , 5 ) , STB ( I , 4 ) , STB ( 1 , 6 ) 
4082  CONTINUE 

WRITE! I  POUT, 4061  ) 

WRITE! I POUT, 4060 ) 

GO  TO  40 7  9 

4017  CONTINUE 

DO4034I  =  1  ,:<l 

IF! SM! I , 1 ) .LE.0)  GO  TO4048 
STB! 1 ,7 )-SM( 1 , 15)/SM! I ,1  ) 

STB! I , 3) =! SM! I ,15) — SM! 1,17) )/SM( I , 1 ) 

STB! I ,9 )=SM( I , 1 o)/SM( 1,1) 

STB! I , 10)=(SM( I, 1 6 ) -SM ( I ,18))/SM! I ,1 ) 

GO  TO  4049 

4048  STB! I ,7 )=0 
STB ( I , 8 ) =0 
ST3CI ,9 ) =0 
STB! I , 10) =0 

4049  CONTINUE 

WRITE!  IPOUT,42J66)  ,XK(I  )  ,STB  (1,7)  ,  STB  (  I  ,8)  ,  STB  ( I  ,9)  ,ST3  (1,10) 

4084  CONTINUE 

WRITE! I  POUT, 4060) 

C 

GO TO 40 79 

4018  CONTINUE 

0040361= 3 ,KI 

WRITE! IPOUT, 4066) ,XK! I ) , SDI V! I ) ,ODIV( I ) ,XNDIV!I ) 

4086  CONTINUE 

WRITE! IPOUT, 4060) 

C 

c 

4079  CONTINUE 
4090  CONTINUE 
4053  CONTINUE 
RETURN 
END 


Appendix  G 


GUELPH  MATCHING  PROGRAM 


Harry  Newton 
November  1,  1971 


The  following  pages  present  a  description  of  the  above-mentioned 
program,  including  the  assumptions  made  and  the  steps  taken  in 
writing  the  program,  and  the  problems  encountered  in  testing 


the  program 


. 


, 


. 


1.  Introduction  to  the  Matching;  Programs 


1.  This  program  takes  the  property  tax  records  of  the  residents  of 

Guelph  arid  £ri§§  to  matsh  them  with  their  personal  iuseme  tax 

records* 

2.  The  only  pieces  of  information  that  are  common  to  both  the  property 
tax  tapes  and  the  personal  income  tax  tapes  are  names  and  addresses. 
The  names  and  addresses  appear  in  full  on  the"property  tax  records, 
but  on  the  personal  income  tax  records,  only  the  first  ten  letters 
of  the  surname  and  the  first  five  letters  of  the  given  name  appear. 
Hence,  the  sole  criteria  for  a  match  are  the  names  and  the  addresses. 

3.  A  certain  match  is  defined  as  a  property  tax  record  and  a  personal 
income  tax  record  with 

i)  identical  surnames  (first  ten  letters),  - 

ii)  identical  addresses  (house  no.  and  street  name), 
and  iii)  the  given  name  on  the  personal  income  tax  record 
is  identical  to  one  of  the  given  names  on  the 
property  tax  record  (first  five  letters). 

4.  a  doubtful  or  -possible  match,  is  defined  as  a  property  tax  record 
and  a  personal  income  tax  record  with 

i)  identical  surnames, 
ii)  identical  addresses,  and 

iii)  different  given  names. 
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5.  Doubtful  matches  are  important  for  the  following  reasons: 

i)  the  possibility  that  the  husband  is  the  only 

income  taxfiler  in  the  family,  but  the  property 

is  in  the  wife's  name,  or  vice  versa. 

ii)  the  possibility  that  more  than  one  (or  more  than 

two)  members  of  the  family  are  income  taxf ilers. 

For  instance,  a  husband  and  wife,  both  whom  are 

listed  on  the  property  tax  record,  may  both  be 

income  taxf ilers.  In  addition,  other  members  of 

'r  / 

the  family,  who  are  not  listed  on  the  property 
tax  record,  may  also  file  income  tax  returns.  In 
this  case,  doubtful  matches  will  be  useful  to  the 
user  who  is  trying  to  calculate  total  income  of 
a  particular  family.  Also,  the  user  may  wish  to 
compare  the  incomes  of  the  various  members  of 
the  family. 

6.  Given  the  above  definitions,  one  can  now  set  to  devise  an  algorithmic 
procedure  to  search  for  these  matches. 


General  Flowchart  of  the  Program 
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II.  Preparation  of  Input  Tapes 

1.  The  property  tax  records  were  sorted  alphabetically  by  the  surname 
and  then  by  the  given  name  of  the  first  assessed  person  on  the 
record. 

2.  The  personal  income  tax  records  were  sorted  alphabetically  by  the 
surname  and  then  by  the  given  name  of  the  taxfiler. 

3.  In  preparing  an  input  tape  of  property  tax  records  for  the  program, 

'  t 

the  following  changes  were  made  to  the  data  tapes  supplied  by  the 

«c» 

Department  of  Municipal  Affairs. 

1)  The  name  of  the  last  ten  assessed  persons  on  each 
record  were  deleted.  Generally,  this  space  was 
blank  anyway.  The  names  of  the  first  five  assessed 
persons  were  retained  but  only  the  first  two  names 
are  used  in  the  program. 

ii)  All  of  the  data  pertaining  to  property  dimensions 
was  deleted. 

NOTE:  The  above  two  steps  permitted  the  property  tax  record  to 
be  shortened  considerably  (from  645  characters  to 
265  characters).  The  subsequent  saving  of  tape  space 
is  obvious. 

iii)  Each  record  was  lengthened  by  11  characters  to 

276  characters  by  adding  eight  blanks  at  the  end 


of  the  record. 
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iv)  Only  property  tax  records  pertaining  to  non- 
vacant  residential  properties  were  retained. 

Those  pertaining  to  other  categories  were  deleted. 

v)  a  hey  placed  at  the  feeginatng  ef  the  retard 

to  indicate  whether  the  assessed  person(s) 
owned  (0)  ore  rented  (R)  the  property. 

4 .  In  preparing  an  input  tape  of  personal  income  tax  records  for  the 
program,  the  following  changes  were  made  to  the  data  tapes  supplied 
by  the  Department  of  Revenue. 

i)  Each  record  was  lengthened  by  nine  characters 
(from  315)  to  324  characters  by  addining  nine 
blanks  at  the  end  of  the  record, 

ii)  No  further  changes. 

5.  All  of  the  steps  mentioned  above  were  performed  on  the  IBM  360/40 
which  was  resident  at  the  Computer  Services  Centre  (hereafter  referred 
to  as  CSC)  until  October  1,  1971. 

6.  As  of  October  1,  1971,  it  was  necessary  to  convert  both  input  tapes 
(property  tax  and  personal  income  tax)  for  use  on  the  UNIVAC  1103 

r 

at  CSC,  The  conversion  program  created  two  tapes  with  the  following 
characteristics : 


■  i)  COBOL  format 
ii)  9  »  track 

iii)  Standard  labels 

iv)  Property  tax  tape 


“  blocking  factor  -  10 
-  46  words  per  record 
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v)  Personal  income  tax  tape  -  blocking  factor  -  50 

-  54  words  per  record 

NOTE:  Since  each  word  contains  six  characters,  one  can  see  why- 

bo  th  records  had  to  be  lenthened: 

6  X  46  =  276 
6  X  54  =  324 

7.  The  COBOL  formatted  tapes  were  created  in  Fortran-callable,  COBOL 
File  Handler  subroutine,  0GFI0C.  This  subroutine  is  part  of  the 
system  library  at  CSC,  and  a  description  of  how  to_  use  it  is 

r 

available  from  CSC  or  from  anyone  who  has  used  it. 
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III.  The  Program  Itself 

1.  Input  -  the  two  tapes  described  in  Part  II.  There  are  approximately 
15,000  property  tax  records  and  28,000  income  tax  records. 

2.  The  Matching  Procedure  -  Basically,  the  program  takes  a  property 
record  and  tries  to  find  an  income  tax  record  with  identical  names 
and  addresses.  More  specifically,  the  program  reads  in  a  property 
tax  record  and  then  an  income  tax  record.  If  the  surname  on  the 
income  tax  record  precedes  (alphabetically)  the  surname  on  the 
property  tax  record,  then  it  is  assumed  that  there  will  be  no  match 
for  this  income  tax  record.  Income  tax  records  are  read  in  until 
the  surname  on  the  Income  tax  record  is  identical  or  exceeds  the 
surname  on  the  property  tax  record.  In  this  case,  the  income ' tax 
record  is  stored.  If  the  surnames  are  identical,  addresses  are 
compared.  If  addresses  match,  then  given  names  are  compared.  Doubt“ 
ful  and  certain  matches  are  written  on  tape.  If  the  surname  on  the 
income  tax  record  exceeds  the  surname  on  the  property  tax  record, 
another  property  tax  record  is  read  in.  Now,'  records  that  were  stored 
earlier  in  the  program  are  compared  and  the  same  comparison  criteria 
as  above  are  applied  to  the  records.  After  the  stored  records  are 

r 

exhausted,  more1 income  tax  records  are  read  from  the  input  tape. 
Whenever,  the  surname  on  an  income  tax  record  precedes  the  surname 
on  the  property  tax  record,  the  income  tax  record  is  deleted  from 
storage.  All  income  tax  records  that  cannot  be  matched  are  written 
on  tape.  The  entire  procedure  continues  until  one  of  the  tapes 
reaches  an  end  of  file. 
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3.  The  above  description  is  by  no  means  a  thorough  description  of 
the  matching  procedure  but  is  merely  an  attempt  to  outline  the 
important  steps  in  the  program. 

4 i  Output!  s  ftom  thd  line  pointer. 

a)  'Vital  statistics"  (i.e.  no.  of  records  read, 
no.  of  records  written) 

b)  all  unmatched  property  tax  records. 

5.  Output  -  on  tape.  All  certain  and  doubtful  matches  art  written  on 
one  tape.  They  are  coded  so  as  to  be  distinguishable.  Also,  on  a 
second  tape,  all  unmatched  personal  income  tax  records  are  written. 

6.  The  output  tapes  created  on  the  UNIVAC  1108  can  be  adapted  to  the 
PDP-10  (Dataline)  with  minimal  problems.  Both  tapes  were  created 
using  the  1/0  routine  NTRAN,  which  is  available  in  the  system  library 
of  both  machines. 

7.  Both  output  tapes  possess  the  following  characteristics: 


i) 

written  by  NTRAN 

ii) 

7  -  track 

, 

iii) 

unlabelled 

iv) 

blocking  factor  - 

10 

v) 

Matched  record  is 

208  words 

long. 

vi) 

Unmatched  income 

tax  record 

is  87  words  long. 
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KSW 

0 

1 

LSW 

0 


1 

IPRSW 

0 


1 

MSW 

'O’ 


I  2  5 


LCEE 

•C' 


LDEE 


D ' 


Description  o£  Important  Variables  and  Flags 

In  the  Program 

has  the  value 

when  a  PIT  record  is  to  be  read  from  storage, 
when  a  PIT  record  is  to  be  read  from  the  input  tape. 

has  the  value 

when  the  surname  on  the  PIT  record  does  not  match  the 
surname  on  the  property  tax  record. 

r 

when  these  surnames  do  match. 

has  the  value 

when  the  surname  on  the  property  record  is  the  same  as  the 
surname  on  the  previous  property  tax  record, 
when  these  surnames  are  different. 

has  the  value 

for  the  first  match  of  a  PIT  record  with  a  property  tax  record, 
and 

for  any  subsequent  match  of  a  PIT  record  with  the  same  property 
tax  record. 

r 

has  the  value 

and  indicates  a  certain  match. 

has  the  value 

and  indicates  a  doubtful  or  possible  match. 
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MS  TAT J 

has  the  value 

'1' 

when  the  name  on  the  PIT  record  matches  the  first  name  on 

the  property  tax  record. 

*2' 

when  the  name  on  the  PIT  record  matches  the  second  name  on 

the~property  tax  record. 

IST0RD 

is  the  number  of  records  currently  in  storage. 

KSTORD 

is  a  pointer  Indicating  the  record  that  is  being  read  from 

storage. 

INPROP 

is  the  number  of  property  tax  records  that  have  been  read 

from  the  input  tape. 

INPIT  ' 

is  the  number  of  PIT  records  that  have  been  read  from  the 

Input  tape. 

I  CERT 

is  the  number  of  certain  matches  that  have  been  found. 

IDOUBT 

is  the  number  of  doubtful  matches  that  have  been  found. 

LERR 

has  the  value 

0 

until  end  of  file  on  the  PIT  input  tape  is  reached , 

1 

and 

r 

when  end  of  file  is  reached. 

KERR  . 

has  the  value 

0 

until  end  of  file  on  the  property  tax  input  tape  is  reached, 

and 

1 

when  end  of  file  is  reached. 
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V.  Description  of  Output  Record 

1.  KEY  #1  -  The  first  word  in  the  output  record  indicates  whether 
the  matches  is  a  certain  or  a  doubtful  match.  It  is  coded  C  or 
D  respectively. 

2.  KEY  #2  -  The  second  word  contains  the  label  ()  (Zero)  if  this  is 
the  first  match  of  a  personal  income  tax  record  and  the  property 
tax  records  or  1  if  this  is  a  subsequent  match  of  a  different 
personal  income  tax  record  with  the  same  property  tax  record. 

3.  KEY  #3  “  The  third  word  contains  the  label  1  if  the  name  on  the 
personal  income  tax  record  matches  the  first  surname  on  the  property 
tax  record,  or  2  if  the  name  on  the  personal  income  tax  record 
matches  the  second  surname  on  the  property  tax  record. 

4.  KEY  #4  -  The  fourth  word  indicates  whether  the  property  is  owned 
or  rented  by  the  person (s)  mentioned  on  the  property  tax  record. 

It  is.  coded  $  or  R  respectively.  This  piece  of  data  is  not  too 
reliable  since  the  record  selection  procedure  used  by  the  programmers 
in  the  preparation  of  the  input  tape  may  have  underestimated  the 
number  of  properties  rented.  This  does  not  affect  the  matching 
procedure  in  any  way. 

5.  Words  5  --  121  are  property  tax  record  data. 


6. 


Words  122  -  208  are  income  tax  record  data. 
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7.  The  following  is  a  breakdown  of  the  components  of  a  matching 

record.  The  output  vector  is  called  MATCH,  and  has  208  components. 

GUELPH  MATCHED  RECORDS 


DESCRIPTION  OF  OUTPUT  RECORD 

Position  on 


Format 

Original 

Tape 

Variable 

Name 

Description 

MATCH  (1) 

1 

A1 

Key  #1 

2 

1 

AX 

-- 

Key  #2 

9  f 

3 

1 

A1 

-- 

Key  #3 

-  4 

1 

A1 

-- 

Key  #4 

5 

2 

12 

1-2 

- -  “  i 

County 

6 

2 

12 

3-4 

Municipality 

f  7 

2 

12 

5-6 

Ward  ''T)£l 

j  8 

4 

X4 

7-10 

Area.  c'ovt? 

■  ^ 

5 

X5 

11-15 

Roll#  ;  eo'J5r^ 

\ 

10 

4 

14 

16-19 

Tenant  #  \  e  6l>t  '! 

11 

1 

A1 

20 

• 

PERFY 

12 

1 

A1 

21 

RCE  ' 

13 

1 

Al 

22 

SUPPORT 

14 

1 

A1 

23 

CORP 

.  15 

2 

12 

24-25 

High  School 

16 

2 

X2 

26-27 

Public  School 

17 

2 

12 

28-29 

Separate  School 

1  r  %" 

18  • 

4 

A4 

30-33 

PKLAS 

Property  Class  ?  s  Cc 

19 

1 

XI 

34 

.  Special  Area  Rates  #1 

:H  20 

21 

22 

23 

24 

25 

26 

27 

28 

29-33 

34-57 

58-65 

66-93 

94-121 

122 

123 

124 

125 

126 

127 

128 

129 

130 
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1 

11 

35 

1 

11 

36 

1 

11 

37 

1 

11 

38 

1 

11 

39 

8  • 

18 

40-47 

8 

18 

48-55 

3 

13 

56-58 

8 

18 

59-66 

5 

5A1 

67-71 

24 

24A1 

72-95 

29 

7A4  jAl 

96-124 

28 

28A1 

125-152 

28 

28A1 

153-180 

7 

17 

1-7 

L$C 

6 

16 

8-13 

IY0B 

3X 

14-16 

2 

12 

17-18 

> 

2 

12 

19-20 

4 

14 

21-24 

1 

11 

25 

1 

11 

26 

1 

11 

27 

SAM 

1 

11 

28 

2X 

29-30 

Special  Area  Rates  #2 

»!  !(  J13 

»  "  "  #4 

■'  »  «»  #5 

"  ”  u  #6 

Occupied  Land 
Occupied  Building 
Business  % 

Pre-Co.  Business  $ 

'p  t 

House  # 

Street  Name 

Short  Form  Description 
Name  of  Assessed  Person  #1 
Name  of  Assessed  Person  #2 
1969  , Locator  # 

Birthdate 
Unused 
Province 
Always  69 

Calendar  date  of  assessment 

Assessing  category  code 

T67A  Action  Code 

Sample  Code 

Marital  status 

Unused 


MATCH  131 

.6 

16 

31-36 

XL0S  X 

Prior  year  loss 

132 

4 

14 

37-40 

XINC  ^ 

Gross  income  from  man's 

source  $  1 000  P 

133 

10 

110 

41-50 

SF0R 

1— -  L- 

Foreign  income 

i — 

134 

10 

110 

51-60 

XL  IV 

Net  dividends  J_  I 

135-6 

10 

19  SA1 

61-70 

XT0T  / 

Total  income*  p 

137 

10 

110 

71-80 

LED  / 

Total  deductions 

138 

6 

16 

81-86 

XML  J 

Medical  gross 

139-42 

4 

4A1 

87-90 

T-r  r- 

First  4  char  of  spouse’s  name 

r~ir 

143 

10 

110 

91-100 

D0N  J 

Gross  donations 

144-5 

10 

19, A1 

101-110 

EXEMPv/ 

Personal  exemptions*  p  * 

146 

10 

110 

111-120 

TAXI 

Taxable  income 

147-8 

10 

19, A1 

121-130 

FTAX 

Net  federal  tax*  J 

149-50 

10 

19, A1 

131-140 

PTAX 

r-  y 

Not  provincial  tax* 

r  fj 

151 

10 

110 

141-150 

FF0R 

Foreign  tax  paid  j_  1 

152 

10 

110 

151-160 

FFTX 

Foreign  tax  credit-  Fed.  portinrL 

153 

10 

110 

161-170 

PFTX 

Foreign  tax  credit-  Prov.  ”  r 

154 

10 

110 

171-180 

STAX 

Tax  deducted  per  T4 

155 

10 

110 

181-190 

TADJ 

Tax  adjustments 

•  r — 

156 

10 

110 

191-200 

PAID 

Payment  received  on  filing  }_ 

157-8 

10 

19, A1 

201-210 

Taxpayers  balance* 

159-60 

10 

19, A1 

211-220 

CMBAL 

Computer  calculated  balance*'" 

161-170 

10 

10A1 

221-230 

5UR 

Surname  1 

171 

9 

19 

231-239 

SINN0 

e 

Social  Insurance  No. 

172 

1 

11 

240 

Sex  code  ^ 

173 

5 

15 

241-245 

Locality  code 

16- 


MATCH 

174-78  5  5A1  246-250 

179-208  30  30A1  251-280 


FNAME  First  name 

ADD  Street  Address 


*  For  these  six  variables,  the  last  location  for  each  variable  is 
overpunched  to  indicate  the  sign  (4*  or  -).  After  conversion  of 
these  variables  (use  subroutine  NUMC0M)  >  the  entire  variable  will 
be  stored  in  the  underlined  location. 
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VI. ■  Limitations  of  the  Program 

Visual  examination  of  tape  dumps  of  the  two  input  tapes  reveals 
that  in  a  very  small  number  of  cases,  the  program  did  not  match 
records  which  should  have  been  matched: 

1.  First,  consider  the  case  of  a  property  tax  record  containing  two 
different  surnames,  say  JONES  AND  SMITH.  This  record  will  be 
sorted  among  the  property  records  starting  with  th.e  letter  J.  The 
program  may  be  able  to  find  an  income  tax  which  will  match  JONES, 
but  will  not  look  for  an  income  tax  record  which  will  match  SMITH. 

To  search  for  an  income  tax  record  for  SMITH  at  this  point  would 
require  excessive  C.P.U.  time  and  core.  Hence,  anytime  that  a 
property  tax  record  contains  two  different  surnames,  it  is  unlikely 
that  the  program  will  search  for  an  income  tax  record  which  matches 
the  second  surname. 

2.  Second,  names  and  addresses  may  be  misspelled  or  misread  by  those 
persons  who  prepare  the  data.  The  following  are  examples: 

i)  Missing  punctuation:  O’BRIEN  may  be  lacking  its 
apostrophe. 

ii)  Names  that  are  not  pronounced  in  English  the  way  they 
are  spelled:  certain  European  names, 

iii)  Names  that  can  be  spelled  many  ways:  SHEPHERD, 

SHEPHARD,  SHEPPARD,  etc. 

iv)  Errors  in  addresses 

v)  A  name  like  MACDONALD  may  appear  as  two  words,  i.e.  MAC  DONALD. 
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3,  This  program  does  not  have  the  capacity  to  determine  whether  a 

name  is  spelled  correctly,,  Hence,  any  match  involving  misprinted 
input  data  which  may  be  obvious  to  the  human  eye  is  rejected 
immediately  by  the  computer* 

If  the  user  should  wish  to  try  to  obtain  more  matches  by  visual 
means,  the  print  out  of  the  unmatched  property  tax  records  and 
the  tape  dump  of  the  unmatched  Income  tax  records  are  available 
for  this  purpose® 

This  program  is  not  a  general  matching  program.  It  was  written 
to  handle  specific  data  under  specific  conditions.  Hence,  anyone 
wishing  to  design  a  program  to  perform  a  matching  procedure  should 
take  note  of  the  specialized  nature  of  this  program. 


Reading  in  the  Matched  Records 


Input  records  are  read  from  the  input  tape  ten  at  a  time. 
However,  the  user  will  want  to  analyze  each  record  individually.  Hence, 
the  following  statements  will  serve  as  a  suggested  means  of  doing  this: 


( 


C0MM0N  etc. 

DATA  NRXN/0/,  XEND/Q/  etc. 

I  '  - 
1 

20  CALL  READTP  .  . 

D0  100  I  =  1,  10 
CALL  ATTACH  (X) 

I  R 

Insert  F0RTAN  statements  which 


analyze  each  record 


100  CONTINUE 

IF  (IEND.NE.X)  G0  T0  20 


Program  continues  on  end-of-file 


ST0P 

END 


Subroutine  READIN  performs  the  following  operations  each  time . 
it  is  called. 

i)  checks  for  end-of-file 

ii)  reads  in  a  block  of  ten  records 

iii)  checks  for  unreadable  records 

iv)  increments  record  counter  by  10 

v)  converts  overpunched  characters  to  numeric  form 
(calls  NUMC0N  ) 


iv)  returns  to  calling  program- 


GUELPH  MATCHING  PROGRAM  -  NEW  OUTPUT  TAPE 


The  output  tapes  from  the  Guelph  Matching  Program  are 
not  completely  readable  at  Dalai ine.  All  numeric  data  can  be 
read  on  the  PDP“109  but  literal  data  cannot  be  read.  In  other 
words ;  all  data  pertaining  to  money  can  be  read3  but  information 
such  as  names  and  addresses  cannot  be  read.  Hence*  a  new  tape 
has  been  created  on  the  UNXVAC  1108  using  NTRAN*  This  tape  contains 
only  certain  matches 8  and  possess  the  following  'characteristics; 


i) 

7“ track 

ii) 

unlabelled 

iii) 

blocking  factor  -  10 

iv) 

record  length  -  208  words 

v) 

MATCH  (1)  -  1  (not  9C9)  for  all  records 

Vi) 

MATCH  (2)  *  1  instead  o£  !08 

©r  2  instead  of  8 Is 

■  vii) 

MATCH  (3)  «  1  instead  of  ?I8 

or  2  instead  of  '2 8 

viii) 

MATCH  (4)  »  1  instead  of  !0S 

or  2  instead  of  *R8 

ix) 

MATCH  (18)=  1  instead  of  'KBSU* 

or  2  instead  of  8FBSU' 

or  3  for  all  other  property  classes. 

*) 

All  overpunched  characters  have  been  converted 
using  subroutine  NUMG0N. 

NOTE:  Please  refer  to  the  description  of  the  output  record,  in  the 
documentation  to  the  program. 


Subroutine  ATTACH  with  argument  I  attaches  program  variable 

th 

names  to  the  appropriate  elements  o£  the  i  record  of  the  input  block 
of  records.  The  program  variable  names  are  contained  in  C0MM0N  statements. 
This  subroutine  is  readily  alterable  according  to  the  data  requirements 
of  the  user. 

********  -firkick-kirickie 

Program  file  READTP  contains  the  three  subroutines 
READIN,  ATTACH,  and  NUMC0N. 


The  following  items  are  still  unreadable  on  the  PDP- 10. 


MATCH  (11) 
MATCH  (29) 
MATCH  (139) 
MATCH  (161) 
MATCH  (174) 


MATCH  (14) 
MATCH  (121) 
MATCH  (142) 
MATCH  (170) 
MATCH  (208) 


However,  it  is  not  expected  that  they  will  enter  into  the  analysis. 

/ 

The  user  is  reminded  that  the  overpunched  characters 
appearing  in  the  income  tax  section  of  the  output  record  have  already 
been  converted.  Hence  subroutine  NUMG($N  will  not  be  called  by 

i 

READ IN. 


Harry  Hew ton 
November  17,  1971 


Appendix  H 


NUMERIC  CONVERSION 


Helmut  Giese 
September  21,  1971 


This  is  a  sub-routine  in  the  Guelph  Analyzer  which  converts  a 
Cobol  formatted  sign  to  a  Fortran  integer. 


DNCTION  NUACON  (NOM,  ID,  NREC,  INREC  IPRINT) 


~f$xe.s 

T^is  function  a  cobol  sign  formatted  number 


converts  it  to  a  Fortran  integ: 


Input:  NUi-i  is  the  integer  portion  of  the  number  (in  10'  s) 

ID  is  the  sign- carrying  digit  (making  it  an  alphabetic 
character) 

NREC  is  the  record  number  on  which  NUM  and  ID  are 
Cw ted 

INREC  is  a  counter  to  aid  in  the  location  on  the  record 

of  an  ID  -  field  containing  a  character  not  recognized 
for  conversion 

IPRINT  is  the  logical  unit  number  on  which  error  messages  are 
are  written. 

hose:  1)  Any  one  or  all  if  NREC,  INREC ,  IPRINT  maybe  set  to 

sero  to  leave  out  part  c£  the  identification  of  an 
ID  -  field  containing  an  unrecognizable  character. 

If  IPRINT  =  0  f  no  error  message  is  given. 

2)  If  ID  contains  a  character  not  recognized  in  the 
conversion,  then 

2.1  NUMCON  -  d-  10  *  hum 

2.2  A  message  Is  written  on  Unit^  IPRINT. 


3)  Characters  recognized  for  conversion  are 


T-  1 


the  digits  0  to  9 

3.2  the  letters  A  to  R 

3.3  -  blanks,  and  the  fields  12-0  and  11-0 


ShP.2  1  1371 


>/?  P !  L  a  T 'i  o  f\}  o  aJ  LA  Aj  i  1/  fl  c 


lU 


\r\f 


L>  iJ 


C  -  V  *3  O  F;  T 


'  v>  sZj 


*7"**  .»  j  A-j  r*  *■'  1  O  °  '(1  O  °  ,C. 

/  £.  O  4  *  W-,  w—  L,  Sr  /  JL  n  ii  «A»  O  *  fc—  O  «fe  O  - 


ZNV.*Y  POINT  00-0137 


C06EQ)  GO 01 63 5  DATA C 0 )  0001045  BLANK  COMMON (2)  000000 


tn'^cc  <*  j *m  *** »/  .  #v j  *\  * j» pr  ^ 
m i 't G u b  *>  t\i/SiviL.  i 


i*.  - —  »  N»  « 


,  .  .n,  VCS'—* 

^  l.V-'  L*  *  \  ?  «  «  f  LL  I? 


c-  vs  a  * 

iv*-La 


’  T  \/F 

»  V  L 


LOCATION?  NAME > 


-1  GO' 


i-\i  o*-.j 

i  \  O  r '  .  vUj\i 


U  vj  U  .1 

vj  O  kj  -u 

a  n  n  i 

L>  ^  ^ 


/  r'  n  A  ? 

■  'OO  « 


000003 
000120 

QQGGui  XT 


•‘J 

oOOL 


0001  000023 
0000  X  000042 
0000  X  000025 


>  <J .  - .  **  l\ 


k .-  ON 


NUMBER-CONVERSION > 


125g 
I  ADD 
XTN 


0001  000046  14 
0000'  I  000040  IB 
0000'  I  000037  IS 


H o  GXESE 


SEPT/71 


FUNCTION  NUMCCN  £NUM 9  IQ 9 NREC « I  NREC 9 XPRZNT ) 

'ION  CONVERTS  THE  COBOL  FORMATTED  $ 

OUT  THE  SION  CARRIED  BY  THE  ZONE  PORTION  OF  THE  LAST 


1  JG  VJ  ~ 


r  ■ 


•r  f .  ~  t  b*  .a  n  *. 

w  %J  i  s.  l  O  ?  S4 

r-  A  *  j 
v  cT 

L> jw iL. w  OlJ  « 

VHZ 

^  ■  c  °  ,v :  '•  \  '*• 

OaW  «  .  w*'.'] 

1.  K  } 

n 
!  ’ ! 

,r* 

vJ  .  —  -  _  i  £  JL  J 


..  :ric  part  of  number  in  ioths* 

Sacked  (OVERPUNGHED)  units  part  OF  NUMBER o' 
PUT  RECORD  NUMBER • 

ORDINAL  NUMBER  OF  FIELD  IN  RECORD® 

PRINTER  LOGICAL  UNIT  NUMBER •’ 

.-.RD  XTCili  ARE  12-0  AND  11-0  PUNCHES  RESPECTIVELY 


"  S)3  T  k!T 

w  <  i\  S  vi  ii 


O I  MENS  I  Cl! 


if* 


7C20) ?  27N ( 10) 

TN/IHG ylHl» LH2 ? 1H3  * 1K4  * 1H5 9 1H6  * 1H? 9 1H8 * 1H9/ 


7  •  •  /  r  urj 

•*  «  /  —»  .  .  u 


*  u  ‘J 

L«  t  • 


/  —  FT  ?"s  1? 

9 1HJ  ? 


00 0025 

0  0  0 1)  0  0 

050505 

0000 

0 GO 026 

610505 

050505 

0000 

0  0  G  0  2  7 

620305 

050505 

0000 

000030 

*0  O  ij  Li  O 

050505 

0000 

0  u  0  0  3 1 

/:  /  j  rr  or  ;*■>  tr 

UvcOUO 

050505 

0000 

000032 

65G505 

G50505 

0000 

000033 

G  O  U  iD  u  0 

050505 

0000 

000034 

|C  *7  T  ,f%  £7 

*L»  /  vM  *3  (J  O 

050505 

0000 

000035 

700505 

050505 

0000 

0  U  0  0  okj 

7105G5 

050505 

0000 

Rd ? iht  ^ 

1HD 1 1HE? 

IHFVIHGp 

XHH 9 1HI 9 

1HK  ?  1HL  ?  l.HM  ?  1HN  ?  1H0  0 1HP  9 1HQ  9  1HR/  >  IBL/1H  / 


NUMCC 

NUMCO 

NUMCO 

NUMCO 

NUMCO 

NUMCO 

NUMCO 

NUMCO 

NUMCO 

NUMCO 

NUMCO 

NUMCO 


NUMCC 

NUMCO 

NUMCO 


NUMCO 

NUMCC 


T7flX(K.) 


XDEMT  =  NU/iCON  (xxti(i)?  IXfrO))  m^C)  1  j  c) 


^jrPKiNT  -  6} 

ZT/lx  (k)  =  NlJMCoai  XX p  (rs)^  A tRj=Ci  JjTPRlMr) 


000032 

7404 

00 

00 

0 

000120 

cool 

0  0  0  U  3  0 

j.  <-  1  6  N  i  s.  i\  3  _ 

2417 

01 

00 

0 

000001 

000034 

7004 

04 

00 

0 

000023 

0001 

000035 

-A 35  —  0 

1 0 17 

02 

00 

0 

000012 

‘  000036 

0100 

G2 

00 

0 

000041 

0000 

«,i“  ( iD « Ey  *  iSi- )  oO  i  0  3u0 

000037 

0500 

GO 

00 

0 

000042 

0000 

000040 

1000 

00 

00 

0 

000040 

0000 

000041 

1500 

00 

00 

0 

000000 

7775 

'  000042 

5100 

00 

00 

0 

000014. 

G00043 

7404 

00 

GO 

0 

000120 

OOGl 

000044 

2717 

01 

00 

0 

QOOGGI 

000045 

DO  105  5=1*10 

2317 

04 

00 

0 

000011 

IADD 

000046 

0600 

01 

•GO 

0 

000043 

0000 

000047 

1017 

00 

00 

0 

000001 

000050 

IF  t  2D«EQ« ITN ( J5 )  GO  TO  300 

1500 

00 

00 

0 

000043 

GGGG 

GOG051 

0200 

GO 

00 

0 

GOG 042 

GOOD 

'  .000052 

1000 

G2 

01 

0 

000024 

GOOO 

000053 

1500 

02 

00 

0 

000000 

7775 

•  000054 

5100 

00 

00 

0 

00G016 

000055 

7404 

00 

00 

G 

000120 

GOOl 

000056 

lU  J  *0  O  i  \j  j  i .  ,\.  O  U— 

“0 

2417 

01 

00 

0 

000001 

G00057 

/Q04 

04 

00 

0 

000046 

0001 

IFCIPRINT.NE.C)  WRITE  Cl PR 

2 NT  *  1 ] 

>  XNREC  *  ID  *  ID  s>  NREC  9  IT 

000060  • 

0300 

OG 

00 

0 

000042 

0000 

'•000061 

5100 

OG 

GO 

0 

000074 

0000 

'  000062 

?  4  0  4 

00 

00 

0 

000120 

0001 

000065 

7413 

13 

GO 

0 

000000 

GO  03 

0000-54 

0000 

00 

01 

0 

000074 

0000 

000065 

0000 

00 

00 

0 

000044 

0000 

0CGQ66 

GOOD 

0  *-> 

12 

0 

000071 

OOGO 

CO 0067 

1017 

GO 

00 

0 

000075 

0000 

0000.70 

7201 

01 

GO 

0 

gooooo 

0004 

000071 

1017 

GO 

00 

0 

000000 

7775 

G00072 

7201 

01 

GO 

"0 

000000 

0004 

G00G73 

1017 

00 

00 

0 

000000 

7775 

000074 

7201 

01 

OG 

0 

OOGOOO 

0004 

G0G075 

1 0 1  ? 

GO 

00 

0 

0G0076 

OOGO 

000076 

7201 

01 

00 

0 

OGOOOO 

0004 

000077 

1017 

16 

00 

0 

00G001 

GG01G0 

2517 

04 

GO 

0 

000023 

0G0101 

0100 

16 

GO 

0 

000037 

0000 

COO 102 

2700 

01 

00 

0 

000037 

OOGO 

000103 

1017 

CO 

01 

0 

OOGOOO 

OOGO 

CO 0104 

7201 

01 

00 

0 

OOGOOO 

0004 

'  0G01G5 

1417 

16 

00 

0 

000001 

000106 

7004 

04 

00 

0 

GGOiCi 

0001 

000107 

1017 

16 

00 

0 

000001 

C00110 

2317 

04 

00 

0 

000011 

1416 


16GG 


2  Z  Z  Z.  Z 


000001 

540505 

050505 

0000 

0000 G 2 

060505 

050505 

0000 

0000 Go 

070505 

050505 

0000 

0QQQG4 

100505 

050505 

0000 

G  0  0  0  0  5 

110505 

G5Q5G5 

0000 

000006 

120505 

050505 

0000 

000007 

150505 

050505 

oooo 

0000x0 

140505 

050505 

0000 

00G011 

150505 

G5G505 

0000 

good i 2 

1605(15 

050505 

0000 

0  G  0  0 1 6 

550505 

G505G5 

0000 

000014 

170505 

050505 

0000 

000015 

200505 

050505 

0000 

00G0I6 

210505 

050505, 

0000 

000017 

220505 

050505 

0000 

000020 

250505 

050505 

OGOO 

000021 

240505 

050505 

0000 

G00022 

250505 

050505 

0000 

00002w 

260505 

050505 

0000 

000024 

270505 

050505 

0000 

000040 

050505 

05G505 

oooo 

000000 

1017 

00 

00 

0 

000G12 

OQOOOl 

0100 

00 

00 

0 

000041 

oooo 

000002 

0500 

00 

GO 

0 

000042 

oooo 

000003 

2717 

01 

00 

0 

000001 

CO 00 04 

2317 

04 

00 

o 

QGGG1X 

000005 

0600 

01 

00 

0 

000043 

OOOO 

000006 

1017 

00 

CO 

0 

000001 

000007 

1500 

00 

00 

0 

000043 

OOOO 

GO  TO  50 C 
'  G0G010 

) 

0200 

00 

00 

0 

OOOG42 

oooo 

QQOOli 

1000 

02 

01 

0 

000000 

oooo 

QGGG12 

1500 

02 

GO 

0 

000000 

7775 

000013 

5100 

GO 

00 

0 

000016 

0 GOG 14 

7404 

00 

00 

0 

000120 

0001 

000015 

2417 

01 

00 

0 

000001 

000016 

7004 

04 

00 

0 

000005 

0001 

000017 

1017 

02 

00 

3 

177765 

00G020 

0100 

02 

00 

0 

000041 

oooo 

0G0021 

2717 

01 

00 

0 

000001 

000022 

2317 

04 

00 

0 

000011 

000023 

G600 

01 

00 

0 

000043 

oooo 

0  0  u  0  2  4 

1017 

00 

00 

0 

000001 

COO 025 

1500 

00 

00 

0 

000043 

oooo 

0)')  GO  TO 

300 

000026 

0100 

00 

CO 

0 

000042 

oooo 

000027 

loco 

02 

01 

0 

CG0012 

oooo 

000030 

1500 

02 

00 

0 

000000 

7775 

000031 

5100 

00 

00 

0 

000016 

000111 

0100 

00 

0 

000037 

0000 

GO 0112 

2700 

01 

00 

0 

000037 

0000 

'  000113 

1017 

00 

Cl 

0 

GO 0024 

0000 

000110 

7201 

01 

00 

0 

0  0  G  0  0  0 

0004 

000115 

1417 

1& 

CO 

A 

000001 

'  QG0I16 

7004 

04 

GO 

0 

000111 

0001 

’  000117 

NUMCOM= IMULTSNUM+ I ADD 

72C  . . 

CO 

00 

0 

000000 

0005 

Q00X20 

1CG0 

00 

00 

Q 

000041 

0000 

000121 

3100 

00 

00 

0 

000077 

0000 

-  '  000122 
RETURN 

1400 

00 

00 

0 

GQG042 

0000 

■'  000123 

0100 

00 

00 

0 

000000 

OQOO 

'  000124 

2300 

03 

00 

0 

000126 

oooi 

000125 

7404 

00 

00 

0 

000127 

0001 

000126 

0000 

07 

11 

0 

000071 

OOGO 

000127 

2700 

13 

00 

0 

000072 

0000 

000130 

7113 

16 

00 

0 

G00100 

0000 

000131 

2700 

01 

GO 

0 

000102 

0000 

000132 

2300 

04 

00 

0 

0G0103 

0000 

000133 

1000 

00 

00 

0 

000000 

0000 

000134 

5015 

00 

00 

1 

000067 

0000 
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7404 

00 

GO 

1 

000067 

0000 

000135 

74  G  4 

00 

00 

0 

000000 
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000137 

0601 

13 

OG 

0 

000072 

0000 

GQQ14G 

7112 

16 

00 

0 

0  0  0 1 G  0 

0000 

'  CO 0141 

0600 

01 

00 

0 

000102 

.0000 

000142 

0400 

04 

00 

G 

000103 

0000 

000143 
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01 

13 

1 

000000 
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■  0100 

01 

00 

0 

000077 

0000 

000145 

1016 

00 

13 

1 
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000146 

0101 

00 

00 

0 

000053 

0001 

000147 

0101 

00 

00 

0 

000073 

0001 

000150 

0101 

00 

00 

0 

000071 

0001 

009151 

0101 

00 

00 

0 

000012 

0001 

000152 

0101 

00 

GO 

0 

000030 

OGOl 

000153 

0101 

00 

00 

0 

000041 

0001 

000154 

1000 

01 

13 

1 

0GQQ02 

000155 

0100 

01 

00 

0 

000076 

0000 

00015& 

1000 

01 

13 

1 

000003 

000157 
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01 

00 

0 

00C075 

0000 

000160 

1000 

01 

13 

1 

000004 

000161 

0100 

01 

00 

0 

000074 

0000 

FORMAT ( /  0 9  ID  NOT  IN  CONVERT  TABLE 

:  Y  ( 

«,A1 

RD  89  pI6*//10X*20A'1*5Xp10A 
END 

Ip 9  OR  BLANK 9 

r/> 

000162 

7404 

00 

00 

0 

000000 

0001 

avion:  no  diagnostics. 
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